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Consnsans ] 


Savoir comment nous joindre, les sommaires, les 
infos. 


HSE 


Une nouvelle façon de poser les questions et de 
voir les réponses faites ! 


HSE] 


C'est en moyenne ce que vous trouvez sur le 
serveur. De quoi faire votre choix ! 


Corus _] 


Une manière de correspondre entre vous ou de 
nous laisser des messages. Nos BAL : SORACOM 
- ARCADES - AMSTAR - PCOMPATIBLES - MEGA- 
HERTZ - CPC REDACT - ASTROLOGIE PRATIQUE 


ET 


En direct, vos questions, vos idées et suggestions 


Cm 7] 


Certains revendeurs français disposent d'un accès 
gratuit pour leurs promotions 


EE”) 


La rubrique sur nos productions avec la possi- 
bilté de commander 


Crest] 


Désormais vous trouverez sur le serveur les 
nouveautés diffusées par cette société 


Ces 7 


L'horoscope 1988 mais aussi depuis peu le men- 
suel du 15 au 15 du mois 


Par minitel, Il vous en coûté pour ls même temps 15 francs 
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Fi EH À JUN PER F5 BIBE TE Parce qu'il avait 
» D . 27 1° % « AT < 
He te PRES # RME HR! oublié de payer sa 
Hi in ë HU BE 5 in man & note d'électricité, de 
CR E BE HE HHBE BH à HHih EH méchants électri- 
te -à7 2} 5 22 s 
GE ÉR PRE QE LD RE EE PRE BE HE HE ciens ont coupé la 


HN UNE BIDON BRU en tie nent HU HUE HU HE 104 Irmiere du château 
AE HR HS HE HE ARE HE NI HS HN HE HN H d'Arthur. 


x RE 2 pl HE PET HIER ous pur: Pr : acer + Der PH2YEE] rh 
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ETS RE Re ARE RU HAE HAN PTS HAE HE & P auvre Arthur ! Le seul moyen d'y 


A ON HS BR RH HN HAE HO HN HER HN 


voir clair est d'allumer le groupe 


à électrogène caché au fin fond d'un laby- 
Heu Abe ee due etre arecee bte AENt REBE HAE À  rinthe de 12 salles obscures. 


& ARR AE HOME ARE ROUE AR HUE HA HAE HE Avant chaque salle, vous aurez le 
HA HART SAN Hi AN HAE HN HAE HI HN H temps de mémoriser le terrain. Atten- 


! 
DO ANT NE AN DAS HIDE HIDE DNS HN EN tion !!! Se cogner contre un mur est 
{ALTCL: CITES FttLetr Lara tittiis (ic <tette ffitec à à mortel. 


mms. 


AE He RES ARC HOME HE HER AAUEER H644t8 HE Hi Dans certaines salles, vous trouvez des 
4 HS D HR HN HN BH HE HHH HA coffres contenant des torches pour 


DH L x x pur 17 hr HI HE HN H éclairer la salle le temps de la mémori- 
2 ne RE RUE HE HE HR INDE HER ve P 


& Hi BR HER FRE & Re th HAE HE HU Tapez le premier programme et 
Bi He AH HE H@)fr in HN HR M4 HW H sauvegardez-le sous le nom de 
HS HRENT HOME UN HET ds RH ODT ENNE HN HS: "DARK". 

Tapez le second que vous sauvegar- 


ik ms Hit HE su Fer BE HE BAR ue #  jerez sous le nom de "DUNGEONS". 
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LINE EN hi Alan à 
SE PU HE LEE) 
”_ RE HN AIS AURA HAE 
à AE AS A GE RP 
RU HAN AUGN HAN UNE 
% 28 ARE AN ANNE 
4 ele 
10 PHARES )LA Dark 120 WINDOW #1,15,27,10,16:PAPER #1, >CR 
PETITE 60 '#### >LF 10 
20 ‘au LB CTTE 130 B$-CHR$(234)+CHR$ (234) >TQ 
TT 70 HRFHMNRRRNRNNEHNNNEEMEEESX DLG | 140 SYMBOL AFTER 33 >ND 
30 'awst DARK DUNGEONS >LC | #44 150 SYHBOL 230,40, 40, &DF, &DF,&DF,&D >LV 
ETTT 80 LH | F,8DC,&DC 
40 aus PAR >LD | 90 ‘ initialisation >LJ | 160 SYMBOL 231,40,L0,8FB,&FB,&FB,&F >KH 
###1 100 ? >RB | B,43B,43B 
60 ‘aus F.Barnabe LE | 110 MODE 1:1NK 0,0:BORDER O:1INK 1,2 >VM | 170 SYMBOL 232,&DC, KDE, &DF, &DF,&DF, FR 
TT G:INK 2,2:INK 3,26 &DF 
HR HR 5 HEURE E SRE BE K HE HIDE 
Ho rie her FORME HN don Bt robe ei 
VO 2LISL ST Lo" «* Tee 1. tre 144: CO CE RECU 
HE RE MEN OMR N Noos RENE 
& Hi Hi PIEHSUELE hi: Bt pe) ROSE 
CHE HE PRRSMR MRNRRS RAM PRO HIER BR GRR He SRE 73 EEE “LR 
Lauut atatte Atbtest Linttat dontatt LÉALLAS vite ver etre Sete Fes trstt C1 HE Hate (RELIT RS 


Ü ot QU tit tt bit HE di “HE tite HUE : tt ii a tt 


reisdisoeies saine Res Ê à »3 ed Dhrr))] +>r)}H un pp à Hi ny pn: a ER rm FsEN per 
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CR BEUEr  HCCSS CISELSe > fétitr CCS (STE tr Lists € 
É ARE HN & RUE He MENT iii RTS ue Hé HUE HUE ASE ARE tt, 


Be HAE HE HN 3 HE DR: HI 1 HN BBD HR Hit DE HN HA HN HE 5] 


pi PUITÉ HP: à HI NE: HE E NN NE IDR HN HONE HI JR 
te tb fete dret ele dftre dre tes dre à ME RUE MU ttes HU ten uce tete dette el 


BU HUE AU BE AE UE at ARE 2 HA Gt QUE LAURE AE MU HUE LU ad AE 

BE DR AE AE ARE MAN HI AE 2 ARE ARE AURE HAE MU A BAM RARE JDE HI 
RER DORE ROME LA RON RME HAN ANA ARR ARE RE RENE UM © 7 
de ARE AU D RE OU AS NE AGE UE UE UE HUE UE AE EP 
HE HE PRE A Bin : Hi HE: HSE AN DH HAN HE HD Bi rh 


EN ME AN D 2DNE DE UNE AUEMI DD DD BE RUE HE DIRE DA 
Men CUS MAUR HUE Rte te AE HUE UE ARE HR MAUE utéée Hétu RREe HENA & 
OH BIBERON 4 HN D HAN HN: HAE NE HR Hits HE Hi 


D PR HONN DDE HN D Don MAN D D DEN DONNE HD DRE NN HIEN à 
de cette tete rebee brute eettet à tee Ltée Hted tete GE lee ette dbtee ftceees ttes € 
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180 SYHBOL 233,438, L7B, LFB, LFB, LFB, 
&FB 

190 SYMBOL 234, LFB, LFB, LFB, 40, &DF,& >HY 
DF, &DF 

200 SYMBOL 235,k1,k3,&7,k7, LED, &F9, 
&PD,&1F 

210 SYMBOL 236, 4C0, LEO, LEO, &FO, &FO, 
&F6,LFE, RFF 

220 SYNBOL 237,43F,L43F,43F,L19,819, 
&F,&F,k3 

230 SYMBOL 238,4FF,LFF,LFF,LFE, FC, 
&F6, &F8,&FE 

240 SYMBOL 238,80, LCO, LEO, LEO, &B7, 
&9F,&BF,&F8 

250 SYMBOL 240,43,47,47,4F,LF,&1F,& >GN 
7F,4FF 


>EG 


260 SYMBOL 241,4FC,LFC, FC, 498,498, >MQ 
&FO,&FO,&CO 
270 SYHBOL 242,LFF,LFF,LFF,L7F,L3F, >ND 
&iF,&iF,&7F 
271 SYMBOL 243,480, L6C, L&8C, LOC, L98, MT 
&B0, &EO, &80 
272 SYMBOL 244,480, 460 ,L6C,L9E,&9E, ML 
WE, KBC, BC 
280 ! )TA 
290 ? presentation TE 
300 ’ >RD 
310 PAPER O:CLS EC 


320 PEN 1:LOCATE 15,10:PRINT"F.Barn >AN 
abe et":LOCATE 18,12:PRINT"Anstar" 
330 LOCATE 19,14:PRINT" vous" :LOCATE >PH 
16,16:PRINT"presentent" 
340 INK 2,0:INK 3,0 DA] 
350 RESTORE 570:G0SUB 500 
360 RESTORE 380:FOR fred=1 TO 8:REA >VN 
D ax,ay:LOCATE ax,ay:PRINT b$:NEIT 


370 FOR fred=1 TO 4:READ ax,ay:LOCA >NB 


TE ax,ay:PRINT" ":LOCATE ax,ay-1:PR 
INT" ":NEXT 

380 DATA 1,9,13,9,27,9,39,9,2,10,12 >TB 
10,28, 10,38, 10,15, 22,26, 22, 7,16, 34 
16 


390 CLS #1:PLOT 332,144,2:DRAU 332, >DG 
250 
400 FOR f=1. TO 50 STEP 2 xx 


410 PLOT 334+f,180:DRAW 334+f,244:P HU 
"LOT 386+f,160:DRAU 386+f,224 

420 NEXT:PAPER 2:PEN 3:LOCATE 24,12 >VW 
:PRINT CHRS(230) 

430 LOCATE 24,13:PRINT CHR$(232):LO >GH 
CATE 25,13:PRINT CHRS(231) 

440 LOCATE 25,14:PRINT CHR$(233):PA DHL 








FE HOT AU MS 1 HE 
SR HHORI HORS HN AT 
HORREUR DE PRE 

DEREITIRU LS 
UE: Bot 


PER 0 

450 LOCATE 9,3:PRINT'D ARK DU >PG 
NGEONS" 

460 PLOT 192,0,0:DRAW 192,180:PLOT >VD 
446,0 :DRAN 446, 180 


470 INK 2,10:INK 3,26 > 
480 RUN"DUNGEONS >K 
490 ? > 
500 ? lecture data ecran >RF 
510 RG 


520 FOR i1=1 TO 12:READ d#:FOR 121 >BX 
TO 20:tes-M1D8(d8, 12, 1) 

530 FOR 13=0 TO 1:LOCATE (12#2)-1,1 >JR 
122-1+13 


540 IF te$="°" THEN PEN 2:PRINT b$ AN 
550 NEXT 13:NEXT 12:NEXT 11:RETURN )DF 
560 >TB 
| 570 * data presentation >TC 
580 >TD 
590 DATA * L >TJ 
600 DATA " L TA 
| 610 DATA * * )TB 
620 DATA CORRE] en > 
630 DATA * ‘°°° ere M )2T 
640 DATA = voue ...... € >Z 
650 DATA = ...e ..... >2N 
660 DATA = 0e ..... >Z4 
670 DATA # 0.00. . . ess >BL 
680 DATA ® “'eeeemmemensss n >DB 
690 DATA nm soscssee uses pe >CH 
700 DATA M secoue coccocee g >CZ 
710 DATA M eneeres sossssss n >CA 


Dungeons 


10 "HNBSENNNENNEHNNEENNNENNNSEENIES )LA 
Hi 


20 's### >LB 
###H4 
30 'aus+ DARK DUNGEONS >LC 
CET 
40 ‘aus PAR >LD 
Hs 
50 ‘###3 F.Barnabe )LE 
‘#43 
60 '#### >LF 


LES: 
T0 AHNHHNMEENNEENNNENNNENNNEHHNEES )LG 








ÉTTTE 

80 ! >LH 
90 ? initialisation >LJ 
100 ? >RB 


110 C1#=CHR$(230)+CHR$ (231) :C2$=CHR >TB 
$(232)+CHR$ (233) 

120 FG1$=CHR#(235)+CHR4 (236) :FG2$=C DUY 
HR$(237)+CHR$ (238) 

130 FDi$=CHR$(240)+CHRS (239) :FD28=C >WF 
HR$(242)+CHR$ (241) 


140 IN1$=CHR$(234)+CHRS (243) VE 
150 IN2$=CHR$ (234) +CHRS (244) >VH 
160 B$=CHRS (234) +CHR$ (234) >TU 


170 WINDOW #1,15,26,8,14:PAPER #1,3 >KD 
:PEN #1,1 

180 WINDOW #2,1,40,25,25 >RD 

190 tia=500:vi=5:dir=i:ux=638: SPEED )>YJ 
INK 1,1:GO0T0 2350 


200 >RC 
210 ’ lecture data ecran >) 
220 RE 


230 PEN 1:LOCATE 10,25:PRINT"Veuill 
ez Patienter..." 

240 FOR i1=1 TO 12:READ d#:FOR i2=1 >BL 
TO 20:te$-MIDS$(d$, 12,1) 

250 FOR 13=0 TO 1:LOCATE (12#2)-1,i >JQ 
1#2-1+13 

260 SOUND 1, 120+RND#300,5, 15 > 
270 IF te$="°" THEN PEN 2:PRINT b$ >AN 
280 IF te$="a" AND a=1 THEN PEN 3:P DHY 
RINT c24 

290 IF te$="A" AND n-0 THEN PEN 3:P >YD 
RINT ci$:a=1:ELSE m=0 

300 NEXT i3:NEXT i2:NEXT i1 >) 
310 READ ta, ja,coul,ti,ex,ey,de,sx, >LL 


DZ 


sy, ds 

320 RETURN >ZA 
330 ’ >RG 
340 ? FANTOME >RH 
350 ? )RJ 
360 1=EX:Y=EY >ZC 


370 DI:PEN 1:1F JA=4 THEN LOCATE 1, >MG 

Y-1:PRINT FG1$:LOCATE X,Y:PRINT FG2 
$:E1:G0T0 390 

380 IF JA=8 THEN LOCATE 1,Y-1:PRINT >NE 
FD1$:LOCATE X,Y:PRINT FD2$:EI 

390 1F ti=0 THEN vi=1:G0T0 600 )IL 
400 IF dir=1 THEN j-JO0Y(0):G0T0 420 >CL 


410 IF dir=2 THEN GOSUB 3150 )VJ 
420 IF J=0 OR J=5 OR J-6 OR J=9 OR TR 
J=10 OR (j=de AND x=ex AND y=ey) TH 


EN 390 

430 IF j=ds AND x=sx AND y=sy THEN )TF 
tia=t1:RETURN 

440 1F J=8 THEN tet=TEST(x#16+32, (2 >MU 
6-y)#16+4) 

450 1F j=4 THEN tet=TEST(x#16-32, (2 >MV 
6-y)#16+4) 

460 IF j=1 THEN tet=TEST(x#16, (26-y >KM 
)#16+36) 

470 IF j=2 THEN tet=TEST(x#16, (26-y >KR 
)#16-36) 

480 IF tet=2 THEN GOSUB 590:G0T0 36 >CQ 
0 

490 IF tet=3 THEN SOUND 1,10,5,15,4 >RW 
52,0:tia=ti:ti=10:CLS #2:GOSUB 2680 
tti=tia:GOTO 370 

500 SOUND. 1,0,0.5,15,2,0, 12 >UP 


510 DI:LOCATE 1,Y-1:PRINT" ":LOCAT >ZE 
E X,Y:PRINT" "EI 

520 IF J=1 THEN Y=Y-2 >PJ 
530 IF J=2 THEN Y=Y+2 >PJ 
540 IF J=4 THEN 1=X-2 >PH 
550 IF J=8 THEN 1=X+2 >PQ 
560 IF J)2 THEN JA=J >NL 
570 GOTO 370 )ZJ 
580 ? >TD 
590 ’ Perte d'Une vie >TE 
600 ? >RG 


610 EVERY 0,2 GOSUB 2710:1INK 2,6,2: >VD 
vi=vi-1:G0SUB 2760:F0R t=1 TO 2000: 
NEXT:IF vi=0 THEN 640 

620 tia=ti:CLS #2:ti=10:G0SUB 2680: >KC 
tistia 

630 LOCATE 1,Y-1:PRINT" ":LOCATE X >BG 
,Y:PRINT" ":RETURN 

640 INK 2,coul:CLS #1:LOCATE #1,2,4 »>KP 
PRINT #1,"GAME OVER":FOR t=1 TO 3 
000:NEXT :RUN 


650 ? )TB 
660 * data salle TC 
670 ! >TD 
680 DATA "°°°" soossssoeen EG 
690 DATA "*'" * on >IZ 
700 DATA "°°° ‘* s.. >1Q 
710 DATA "°°° EL D'A 
720 DATA "°°" …. > 
730 DATA "°° ‘esensecoses con DH 
740 DATA "°°° OL >VA 
750 DATA "**° > 
760 DATA "°°°" ses oooen >DA 


7170 DATA Meuoceees 0000 0000 >DB 
780 DATA °°" 





CRC 
en 114 RE 
KR HN 
2 MMA PIN M 
HR 


BB AN AGIR 
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ME x» 


790 DATA Monccoseseses voccoceog 
800 DATA 1,4,2,10,19,2,1,25,24,2 
810 ? 

820 DATA Mosoocoeeene concu 
830 DATA pensons 
840 DATA LLALEE] ... 


850 DATA messes © ee ....... 
860 DATA Messe ‘à … 
0000: e. 


870 DATA "°°°*° 
880 DATA foocecs .. .e sn 


890 DATA “°°°°° .,. 
900 DATA m°eessessse os …. 
910 DATA "°°". … 
920 DATA n°" …. 


930 DATA m'temmmmossouesesseen 
940 DATA 2,4,10, 10, 23, 2, 1,38, 12,8 
950 ? 

960 DATA m'°"esesomsssosessesn 
970 DATA CLEREEELEEEEEEEEEEENET) 
980 DATA m°°"essesssses .n 
990 DATA m°""remmeeessee 0] 
1000 DATA "‘°* ‘à * … 
1010 DATA * : 
1020 DATA "°°° AT 
1030 DATA "°°" 
1040 DATA LLLE] . 
1050 DATA CLEE] .. . 
1060 DATA "°°°" è 
1070 DATA. M°rsonesnonessoseseseg 
1080 DATA 3,8,9, 10,1,12,4,39,8,8 
1090,’ 

1100 DATA LLLERERELETELELELLEEZL]) 
1110 DATA "* * : "a ‘"" 
1120 DATA ne L] e. . . .…. 
1130 DATA " . . . . en 
1140 DATA *° RÉ RD 
1150 DATA Mooos000000000000 07 
1160 DATA "à  ‘ ‘à ‘* ‘*" 
1170 DATA ** * RS 
1180 DATA ** 
1190 DATA "* : % 4 ve 
1191 DATA "* VUS? SPA 
1200 DAT 
1220 DATA 4,8,14,10,1,8,4, 11,24, 2 
1230 ? 
1240 DAT 
1250 DATA ** id 
1260 DATA me cossese 
1270 DATA "*° ‘à Ms 
1280 DATA ** * He 
1290 DATA "* * ds 24 
1300 DATA "° * 


..... 


eux mit 








>AD 
>FK 


| 


TE 
FN 





1310 DATA CLR] .. “ee . 
1320 DATA“ ‘+ ee 
1330 DATA ne. 0 .... 4 
1340 DATA" ** LU 


1350 DATA maseesssete assssopaun 
1360 DATA 5,8,5,8, 11, 2, 1,21, 24, 2 
1370 ' 

1900 DATA Bescnéeseie sreusosoes 
1390 DATA "°° .. 
1400 DATA "°° . 
1410 DATA "+ + en 
LA2D DATA mes nee res oo ou 
1430 DAT 
1440 DATA m9 ‘9e ee eee on 
1450 DATA "** * + +" 
1460 DATA "** . +. 
1470 DATA "°° 
1480 DATA "**  * .. 

1490 DATA LLRERLERELLERLELLLELLELEE,) 

1500 DATA 6,8, 23,6, 21, 2, 1, 19, 24, 2 
1510 " 

1520 DATA CLXEEEEELEREEEEEEEEEET) 

1530 DATA "à se 

dBAD DATA me ons ones ve 

1550 DATA "* * * * « 
1560 DATA me © + « 0e .. en 


1570 DATA “* * D 
1580 DATA Moses 00 000 0e 000 
1590 DATA L] . .. 0. . .. 


1600 DATA **° * * ° 
1610 DATA me 00 60000 oo LC] ." 
1620 DATA "* D: 
1630 DATA "°°°"eeves oooscocoson 
1640 DATA 7,4,19,4,19,2, 1,39, 22,8 
1650 ? 

1660 DATA m'rsesscmosssouessesen 


1670 DATA "° . 
1680 DATA #° “erssssscneseces on 
1690 DATA “° ° ... 


1700 DATA ne ee 0000000000 © 9 
1710 DATA "* 2 
1720 DATA "* 
1730 DATA * ***** 


1740 DATA ** QOCCE ELLE 
1750 DATA Moose 0e . . 
1760 DATA Li . .… 


1770 DATA m'teeesecssoncssessn 
1780 DATA 8,8,1,10,1,22, 4,39, 16,8 
1790 ? 

1800 DATA m'"eesssssssseesosesn 
1810 DATA “” . 
1820 DAT, me © 00e + oo 


. ‘°° e. .. 


1830 DATA "° * © 
1840 DATA 2. ee ‘a: 
1850 DATA COR] . ‘À . .. 
1860 DATA °° * * sat es 
1870 DATA * 
1880 DATA ** * * ° * 
1890 DATA "* ** °° 
1900 DATA "* ‘ 
1910 DATA CLXEEEEELENEEEEELEERET) 
1920 DATA 9,8,13,8,1,16,4,37,24,2 
1930 ? 

1940 DATA LLRERERELLELELREELIIR,) 
1950 DATA" ‘ à Se, 8 
1960 DATA ne 00 0e 000 © 00 00 
1970 DATA " * * * * * + 
1860 DATA "°° 
1890 DATA "°°° 
2000 DATA "°°° 
2010 DATA Moose voccouee .. .. 
2020 DATA tn .... D ‘is .. 
2030 DATA "à 
2040 DATA m'eres . .. 
2050 DATA LÉRELELRELELRELLELRLEELLELLT) 
2060 DATA 10,4,25,8,37,2,1,1,4,4 
2070 ? 

2080 DATA m°""eeescssoossonooen 
2090 DATA "‘‘àaà ‘ " 
2100 DATA °°° ee ee oc soon 
2110 DATA me 0e 00. © on 
2120 DATA "* © 
2130 DATA *° *° « ... en 
2140 DATA *° * © 
2150 DATA *° © 
2160 DATA *° ‘°° EE 
2170 DATA *° 
2180 DATA *° *. 
2190 DATA LLRERERELLEEEREELLIZLTr) 
2200 DATA 11,4,2,6,39,4,8,25,24,2 
2210 ? 

2220 DATA Mococsoovocee coco 
2230 DATA "‘°AâAAAA° o ds 
2240 DATA *° 


2250 DATA“ * …. 
2260 DATA moe 00000000 on 
2270 DATAM ‘en 
2280 DATA *‘°° 0 0060 ve 9 
2290 DATA “* 0 oo .. 


2300 DATA ne ..e 
2310 DATA fMeoscove voue covoccg 
2320 DATA Resococe ...... 
2330 DATA COCLELEREEEEEEEEEIETET | 
2340 DATA 12,4,14,6,25,2,1,5,12,4 








ar ti sa ai à 
H HI EI 


DRE 
ER tata QUES UNE RS PAT NT 
FUN NON AB HAN HU RUE 
SUN HU RUN SR AH) 
D. FERRER HAE MENT 
AU ME LH" 
CET 
RUE mx 
2350 >TC 
2360 ’ JEU >" 
2370 ! )YE 
2380 GOTO 2800 >NA 


2390 GOSUB 210:CLS #2:G0SUB 2680:ti1 >RX 
=tia:GOSUB 360:GOSUB 3240:RETURN 

2400 De 
2410 GOSUB 2640:RESTORE 680:G0SUB 2 >FX 
390 

2420 GOSUB 2640:RESTORE 820:GDSUB 2 >FU 
390 

2430 GOSUB 2640:RESTORE 960:G0SUB 2 >FA 
390 

2440 GOSUB 2640:RESTORE 1100 :G0SUB 
2390 

2450 GOSUB 2640:RESTORE 1240:G0SUB 
2390 

2460 GOSUB 2640:RESTORE 1380:G0SUB 
2390 

2470 GOSUB 2640:RESTORE 1520:G0SUB 
2390 

2480 GOSUB 2640:RESTORE 1660 :G0SUB 
2390 

2490 GOSUB 2640:RESTORE 1800:G0SUB 
2390 

2500 GOSUB 2640:RESTORE 1940:G0SUB 
2390 


2510 GOSUB 2640:RESTORE 2080:G0SUB >GD 
2390 

2520 GOSUB 2640:RESTORE 2220 WP 
2530 GOSUB 210:PEN 2:LOCATE 3,11  >ZB 


2540 PRINT in24:LOCATE 3,12:PRINT i >FU 
ni$ 

2550 CLS #2:G0SUB 2680 >PU 
2560 ti=tia:GOSUB 360 QC 
2570 EVERY 0,2 GOSUB 2570:LOCATE 1, >DR 
1:PRINT CHR$(22)+CHRS8 (1) 

2580 INK 2,1:1INK 1,14 )N 
2590 LOCATE 10,8:PEN 1:PRINT"Et que >J 
la lusiere soit !!!° 


2600 LOCATE 17,10:PRINT"Bravo !"  )BY 
2610 FOR fred=0 TO 2000:MEXT y 
2620 PRINT CHRS(22)+CHR$ (0) VF 
2630 RUN >BK 
2640 ! TE 


2650 ' cospte a rebour, salle, vie YF 


2660 )YG 
2670 INK 1,26:INK 2,0:INK 3,0:PAPER >RA 
0:CLS : RETURN 

2680 ! TJ 
2680 INK 1,26:1K 2, coul : INK 3,3:EV >WD 
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ERY 50,2 GOSUB 2710 

2700 1F ti=0 THEN RETURN:ELSE 2700 BB 
2710 IF ti(=10 THEN SOUND 1,50,3,15 >TN 
,2,2,1:G0T0 2730 

2720 SOUND 1,100,1,15,2,2,1 DUT 
2730 ti=ti-1:LOCATE 16,25:PEN 1:PRI >XM 
NT"Teaps :"ti"" 

2740 IF ti=0 THEN 2750:ELSE RETURN )BN 
2750 INK 2,0 JU] 
2760 LOCATE 1,25:PRINT"Salle :"ta:L >YB 
OCATE 32,25:PRINT"vie :"vi:RETURN 


2770 »YJ 
2780 ? Menu )K 
2790 ’ ZA 
2800 GOSUB 3340 )IC 
2810 PAPER O:CLS )LJ 


2820 INK 1,14:1NK 0,1:BORDER 1:1NK UV 

2,2:1NK 3,26:PEN 1 

2830 RESTORE 2880:FO0R T=1 TO 4:READ >HK 

X,1,P 

2840 PEN P KE 

2850 LOCATE 1,Y:PRINT FDi$:LOCATE X >VA 

»Y+1:PRINT FD2$ 

2860 NEIT >LH 

2870 PEN 3:LOCATE 9,2:PRINT"D À R K >YG 
DUNGEONS" 

2880 DATA 6,2,2,14,10,3,14,15,1,14, >DZ 

20,2 

2890 PEN 2:LOCATE 35,2:PRINT FG1$:L >AU 

OCATE 35,3:PRINT FG2$ 

2900 LOCATE 17,21:PRINT"3 CLAVIER": >ZD 

LOCATE 28,21:1F dir=2 THEN PRINT CH 

R$(247):ELSE PRINT" * 

2910 PEN 1:LOCATE 17,16:PRINT"2 JOY LE 

STICK" :LOCATE 28,16:1F dir=1 THEN P 

RINT CHR$(247):ELSE PRINT" * 

2920 PEN 3:LOCATE 17,11:PRINT"1 JEU >DB 

" 

2950 q$=INKEYS:1F q$="" THEN 2950  >ZD 

2260 1F g$="1" THEN CLS:1INK 0,0:BOR >RN 

DER 0:GO0TO 2400 

2970 IF q$="2" THEN dir:1:SOUND 1,0 DAJ 

,0.5,15,2,2,1:G0T0 2890 

2880 IF q$="3" THEN 2990:ELSE 2950 >ZA 

2890 ’ >IC 

3000 dir=2:SOUND 1,0,0.5,15,2,2,1 >2ZK 

3010 CLS:PEN 1:LOCATE 10,6:PRINT"Ha PQ 

Ut st 

3020 ha$=INKEYS:1F ha$="" THEN 3020 >BD 


3030 LOCATE 21,8:PRINT ha 
3040 LOCATE 10,10:PRINT"Bas 


>UH 
>DC 


L] 
3050 bat=INKEY$:1F ba$="" THEN 3050 >AF 
3060 LOCATE 21,10:PRINT bas JVU 
3070 LOCATE 10,12:PRINT"Gauche ... DFZ 
" 
3080 gat=INKEYS:1F ga$="" THEN 3080 >BP 
3090 LOCATE 21,12:PRINT gas )VE 
3100 LOCATE 10,14:PRINT"Droite ... )FY 
L] 
3110 dr$=INKEYS:1F dr$="" THEN 3110 >BG 
3120 LOCATE 21,14:PRINT dr$ >vQ 
3130 LOCATE 12,25:PRINT"Pressez une >VC 
touche" 


3140 CALL &BB18:GO0T0 2810 TZ 
3150 ’ »)B 
3160 ’ Clavier >TC 
3170 ? >") 
3180 j$=INKEYS >IF 
3190 IF j$=ha$ THEN j=1:ELSE j=0  >YZ 
3200 IF j#=bat THEN j=2 >PC 
3210 IF j$=gat THEN j=4 >QC 








Fute ta 


EMI APN A RPM 
AI AOL NER: DAT DA DIE AY 
QE 2 ARE REA PA 
ne” 

3220 IF j$=dr$ THEN j=8 )0Y 
3230 RETURN )FB 
3240 ? >YB 
3250 ’ changesent de tableau )YC 
3260 >"D 
3270 EVERY 0,2 GOSUB 2670 >TF 


3280 CLS:LOCATE 18,10:PEN 1:PRINT"B >MP 
ravo !* 

3290 LOCATE 15,12:PRINT"Vous passez )LY 
a° 2 

3300 LOCATE 13,14:PRINT"Ia salle su >TA 
ivante” 

3310 LOCATE 12,25:PRINT"Pressez une >VC 
touche” 

3320 FOR t=1 TO 2000:NEXT )TV 


3330 CALL &BB18:RETURN >RP 
3340 ’ TC 
3350 ? Musique >)" 
3360 )YE 
3370 ’ >YF 
3380 RESTORE 3440 >LA 








Q 140 F non abonné 
Q 110 F abonné 


r 
: 








3380 FOR T=1 TO 58:READ isa >UK 
3400 SOUND 1, isa, 28, 7:SOUND 1, isa, 1 >EV 
0 

, 

3410 sand$=INKEYS:1F sand$="" THEN DVA 
3420:ELSE RETURN 

3420 NEXT T >WF 
3430 GOTO 3340 >HH 
3440 DATA 239,239,253,239,239,239,2 >CK 
53,239, 213,239, 253, 284, 239, 239, 253, 
239,239, 239,253, 239, 284, 319,379, 358 
319,319, 319,319, 319, 358, 379, 426, 37 

9, 358,319 

3450 DATA 284,319,319, 358,319,319,3 >CF 
19,284, 253, 284,319, 358, 379,426, 379, 
426,478,478,426,379, 358,426, 319, 213 
213,239,213, 213,213, 239,253, 284, 25 
3,239, 213 

3460 DATA 190,213,213,239,213,213,2 >CY 
13, 190, 179, 190,213, 190, 134, 190, 179, 
190,213,239, 253, 284, 253, 284,319, 319 

, 284, 253,239, 284, 239 
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Skrnecc 


Je vous présente «SKT' N'EGG », jeu simulant des courses de ski : 
le programme a été fait sur un 664, il devrait toutefois 
marcher sans modification sur le 6128. 


près RUN "SKINEGG", un menu 
se présente avec les diverses op- 
tions possibles. 

Vous pouvez choisir de concourir seul 
ou a deux, et ensuite de choisir votre type 
de piste ou bien de parcourir pour le cham- 
pionnat (option 6), sur les 4 types de piste 
avec un tableau récapitulatif à la fin des 
épreuves. 

Pendant la musique, l’ordinateur cal- 
cule la piste et son décor par un système 
aléatoire, c’est-à-dire qu’à chaque fois que 
l’on repasse par le menu, une piste est 
créée. Bien sûr, dans le jeu, les partici- 
pants skient sur la même piste. On pour- 
ra choisir de la refaire après les résul- 
tats. 

Le personnage est un œuf et se diri- 
ge par les touches droite et gauche du 
pavé numérique. La vitesse de descente 
est déterminée graduellement par la po- 
sition en schuss de l’œuf ; la seule possi- 
bilité de ralentir est de déraper en frei- 
nant, c’est-à-dire en utilisant une des tou- 


ches de direction + SHIFT, pour éviter 
de perdre l’élan, il suffit de ne pas ap- 
puyer sur shift. Il est bien évident que 
plus l’œuf va vite, moins il est mania- 
ble. 


+ SLALOM : il faut pour passer les 
portes, les contourner du côté du fanion. 
Un bip aigu vous indique les portes man- 
quées. 

Si vous touchez le pied de la porte, 
vous êtes déséquilibré, puis ralenti et vous 
tombez avant de repartir en ayant perdu 
du tremps. Si vous touchez un arbre, vous 
êtes disqualifié et avez un score de péna- 
lisation, vous êtes aussi pénalisé si vous 
ne passez pas par la porte d’arrivée. 

A l’arrivée, on vous donne votre temps 
de parcours et vos pénalités. Celui qui a 
le moins de point est le gagnant. 


* GEANT : ici, il faut passer entre les 
portes et ramasser les objets qui traînent 
au hasard. 








skinegg 


20 ’SKI'N'EGG -1988- >LB 
30 LC 
40 HODE 1:1NK 1,3:INK 2,2: INK 3,9:B >JX 
ORDER 13 


50 DEFINT a-z >PB 
60 DIN q(368,2),r#(368),sp#t15) >1H 
70 GOSUB 120 >BA 


80 ENV 1,3,3,3,3,2,3,3,-1,10,6, -2,3 >XU 
:ENT 1,3,-30,3, 20, 10,8 

90 ENV 2,3,-1,9:ENV 3,2,7,1,1,0,2,9 >GD 
,-1,12ENV 4,2,7,2,1,0,7,2,-1,3 

100 ENT 2,5,-2,1,5,2,1,5,-2,1,2,10, >ED 
1,10,-5,12ENT -3,5,-4,3,5,4,1 

110 GOSUB 1240:G0T0 160 »0B 





120 FOR x=1 TO 3:jo!(x-1,0)=x:NEXT: >KG 
RETURN 


130 ? >RE 
140 *SEQUENCE DE DEPART >RF 
150 ? >RG 
160 no=0 >YK 
170 INK 0,26:PEN 3 LG 
180 ON BREAK GOSUB 2910 > 


190 ON jo!(no,0) GOTO 200,200,1150 >2ZV 
200 CLS:LOCATE 3,7:PRINT"EMFONCER * >QG 
SPACES POUR FAIRE" :PRINT:PRINT" DE 
FILER LA PISTE...":PRINT:PRINT" UN 

E AUTRE TOUCHE POUR JOUER... ":CALL 
&BBOO 
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+ DESCENTE : comme le géant mais 
avec en plus des bosses aux effets plutôt 
gênants mais pouvant être lucratif. 


- HORS-PISTE : ici pas de portes mais 
des arbres et des broussailles à éviter. Si 
vous n’allez pas vite, elles ne vous font 
pas tomber sinon elles vous disqualifient. 
On peut sauter au-dessus de ces obsta- 
cles grâce aux bosses. Après le parcours, 
le gagnant est donné, par l’intermédiaire 
de manches pour le jeu à deux avec choix 
des pistes. 


= 
Avant de taper le listing princi- 
pal, vous devez entrer les quel- 
ques lignes qui suivent (en res- 
pectant exactement le nombre 
d'étoiles), puis les lancer par 
RUN. Tapez directement après, 
le programme SKINEGG sans 
faire de RESET. 


FUME TETE TEITITTES TITI TITI TE 
50 FOR n=374 TO 417 
60 READ af 
70 a=VAL("4&"+a$) 
80 POKE n,a 
90 NEXT n 
100 END 
110 DATA 3E,02 
120 DATA CD,90,BB,CD, 60, BB, 32,8D 
130 DATA 01,3E,03,CD,90, BB, CD, 60 
140 DATA BB,32,8E,01,C4, 2A, 2A, 20 
150 DATA 2D,32,35,20, 2A, 20, 41,20 
160 DATA 52,45,53,50,45,43,54,45 
170 DATA 52 

= 


210 ik$=INKEYS:IF ik$="" THEN 210  >ZQ 
220 IF ik$=" * THEN 230 ELSE 240  >WV 
230 CLS:FOR z=0 TO f+17:PRINT r$(z) >GV 
;:CALL &BBOG6:NEXT:G0TO 200 

240 CLS:LOCATE 13,10:PRINT "J 0 U E >WB 
U R ";jo!(no,0); 

250 FOR tasp=1 TO 1000:NEXT:CLS )Z1 
260 FOR z=0 TO 25:PRINT r$(z);:NEXT >CD 
270 PEN 1:LOCATE 21,9:PRINT ki$(2); >CG 
280 r=0:u=32:p=32:u=21:z-25:k=2:y=8 DET 
0 


290 PRINT CHR$(22)+CHR$(1) ; VI 
300 CALL &BB06:CALL &BDO7 TN 
310 EVERY 15 GOSUB 900:DI >TQ 


320 SOUND 2,0,9000,5,,,1:jo!(no,h)= >GN 









TIME 

330 ? >RG 
340 "ROUTINE PRINCIPALE >RH 
350 ’ )RJ 
360 FOR v=9 TO f )ZJ 


370 LOCATE 1,25:PEN 3:PRINT r$(z):L >LP 
OCATE w,8:PEN 1:PRINT ki$(k); 

380 CALL &176:u=PEEK(&16D):p=PEEK(& >KH 
18E):EI 

390 IF u>192 OR p>192 OR q(v+2,2)>0 >HF 
THEN 560 

400 IF wu<q(v+2,0) OR w>q(v+2,1) THE >BM 
N r=r+600:SOUND 132,15,5 


410 FOR x=0 TO y:NEXT:z=2+1 >UP 
420 ON k GOTO 440,430, 440 >RG 
430 IF y=0 THEN DI:GOTO 450 >UH 
440 DI:LOCATE 15,8:PRINT MID#(r$(v) LV 
,15, 20); 

450 NEXT )EE 


460 DI:t1!=TIME:m=REMAIN(O):m=REMAI >KZ 
N(1) 

470 LOCATE 17,8:PRINT MID$(r$(f),17 >MH 
513) ; :LOCATE 1,25:PRINT r$(z); 

480 GOSUB 810:SOUND 130,0,40,0,1,,5 >YU 
:SOUND 2,0,500,10,,,5 

490 y=y#2:FOR x=9 TO 22:FO0R tamp=0 MM 
TO y:NEXT 

500 PEN 1:LOCATE w,x:PRINT ki$(1):y DJT 
=y+50 

510 PEN 3:LOCATE 1,x:PRINT r$(v);:v >HP 
=yti 

520 IF y<601 THEN NEXT ELSE SOUND 1 >CT 
30,0,33,12,2,,5:GO0T0 1040 


530 ? )RJ 
540 "TRAITEMENT DES COLLISIONS >RK 
550 ? )TA 
560 IF u>210 THEN 740 NT 


570 IF p>203 AND (y>10 OR s=1) THEN )CR 
700 

580 IF q(v+2,2)30 THEN 850 TE 
590 a=REMAIN(O):m=REMAIN(1):PEN 1  >BG 

600 FOR n=1 TO 11 STEP 2:SOUND 130, >MM 
n#100,44,3,1 

610 LOCATE w,10:PRINT CHR$(16)+CHR$ >YJ 
(n+(94+(6%(n)5)))); 

620 FOR tamp-1 TO 1S0:NEXT:NEXT  DAU 

630 PEN 3:LOCATE w,9:PRINT k$:LOCAT >AZ 

E 1,9:PRINT r$(v+1); 

640 SOUND 130,0,66,0,1,,10:PEN 1  DYD 

650 LOCATE w,10:PRINT CHR$(98)+CHRS >DJ 
(8)+CHR$(10)+CHRS (114) ; 

660 FOR tamp=1 TO 500:NEIT >UG 








670 IF p>201 THEN OÙT &BCO0,8:OUT & >TI 
BDO0,1:G0T0 1010 

680 LOCATE w,10:PRINT k$: DUT 
690 GOSUB 800:y=80:PEN 3:SOUND 2,0, >XZ 
9000,5,,,1:G070 410 

700 IF s=1 THEN 780:ELSE SOUND 129, >DD 
0,40,0,1,,5:y=80:G0T0 410 


710 ? )RJ 
720 "TRAITEMENT DU SAUT >RK 
713 ’ )TA 


740 m=REMAIN(O):AFTER 65-y,1 GOSUB )FU 
800 


750 SOUND 129,200, (85-y)#2,10,,1  >YB 


760 EVERY 20 GOSUB 960 >QA 
770 MID#(ki$(k),7,1)=sa$(k):5=1 )YA 
780 1F y<i5 THEN y=15 >MH 
790 r=r-100:G0T0 410 >NR 
800 EVERY 15 GOSUB 900:DI )TV 


810 MID$(ki$(k),7,1)=sa$(k+3):5=0:R )JU 
ETURN 


820 >TA 
830 ITEMS >TB 
840 ? TC 


850 IF w=q(v+2,0) THEN r=r-q(v+2,2) >QA 
ELSE GOTO 410 

860 MID$#(r$(v+2),u,1)=" ":MID$(r$(v >DD 
+2),w+3,2)=" ":SOUND 1,210,20,0,3, 


3:G0T0 780 

870 >TF 
880 "GESTION CLAVIER TG 
890 >TH 
800 DI )JB 


910 IF PEEK(&B636)=1 THEN k=1:G0T0 )EJ 
940 

820 IF PEEK(&B635)=2 THEN k=3:GO0T0 >EM 
940 

930 k=2:G0T0 960 >HB 
840 1F PEEK(&B637)-32 THEN y=y-10#( >GX 
y<80) 

950 IF bC>k AND k<>2 THEN SOUND 129 DHE 
,0,66,0,1,,1 

960 b=k:0N k GOTO 970,980, 990 )B 
970 LOCATE w,9:PRINT k$;:u=u-1:PEN BV 
{:LOCATE w,8:PRINT ki$(k);:PEN 3:RE 
TURN 

980 y=y+5#(y>0) :RETURN >TF 
890 LOCATE u,9:PRINT k$;:w=ut1:PEN BV 
1:LOCATE w,8:PRINT ki$(k):;:PEN 3:RE 
TURN 

1000 ? >) 
1010 LOCATE w,10:PRINT CHR$(22)+CHR >KK 
$(0)+CHRS(1)+CHR$(4)+CHRS(B)+CHRS (1 
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0)+CHR$ (98) ; 
1020 FOR tasp=1 TO S00:NEXT:GOSUB 8 >YR 
10::OUT &BD00,0:3=2 


103 ? Y1G 
1040 ’ARRIVEE )IH 
1050 ? Del 


1060 PEN 2:1F u<17 OR w>25 OR 3=2 T >HM 
HEN LOCATE 15,13:PRINT"DISQUALIFIE" 
::jo!(no,h)=f#100:GO0T0 1110 

1070 jo!(no,h)=t1!-jo!(no,h) JM] 
1080 LOCATE 13,13:PRINT "TEMPS : "; )JX 
USING "#";(jo!(no,h)ç18000) ; 

1090 PRINT"'";USING "##";((jo! (no,h TT 
) MOD 18000)ç300) ; : PRINT"? ? ";USING 
“HE; INT((jo!(no,h) MOD 300)40.33); 
1100 LOCATE 13,15:PRINT "POINTS : " >XU 
5j0! (no,h);:LOCATE 13,17:PRINT "MAL 

US : "ir;:LOCATE 13,19: jo! (no,h)=j0 
!C(no,h)+r:PRINT"TOTAL : "; jo! (no,h) 


, 

1110 FOR x=15 TO f STEP 6 >RU 
1120 IF q(x,2)>0 THEN HID$(r$(x),q( >VW 
1,0),1)=" ":MID$(r$(x),q(x,0)+3,2)= 

" Li 

1130 NEXT KG 
1140 CALL &BB00:CALL &BB0G6:no=noti: »>KM 
GOTO 170 

1150 CLS:1F 1>4 THEN i=1+1:MO0DE 1:1 »ND 
NK 0,13:PEN 1:G0SUB 1930:G0T0 160 

1160 1F no=2 THEN aach=sach+SGN(jo! >TU 
(0,1)-j0!(1,1)) 

1170 PRINT:PRINT:PRINT" 
A PISTE. °O/NS" 

1180 1kS=INKEYS:1F 1k$="* THEN 1180 >BN 


REFAIRE L >YT 


1190 IF ik$="o" THEN 160 >QF 
1200 CLS:0N SGN(mach)+2 GOTO 2810,2 >KU 
780,2830 

1210 ? Y1G 
1220 ’CARACTERES )IH 
1230 ? Da 
1240 SYMBOL AFTER 94 >PA 


1250 SYMBOL 94, 24,60,98, 106,255, 223 HV 
,102,60 

1260 SYHBOL 95, 20,8, 196, 104,48, 24,1 >DR 
2,7 

1270 SYHBOL 96, 24,60, 70,86,255,251, >GH 
102,60 

1280 SYHBOL 97,40, 16,35, 22, 12, 24,48 )EZ 
,224 

1290 SYMBOL 98,0,24,60,66,90,255,25 >FU 
5,110 

1300 SYHBOL 99,60,8,44,52,60,36,36, >DA 


36 

1310 SYMBOL 100, 16, 24, 24, 28, 20, 18,1 >ED 
6,16 

1320 SYMBOL 101, 16,48, 48,112, 80, 144 >GU 
,16,16 

1330 SYMBOL 102,1,1,3,2,7,7,12,15  ZZ 


1340 SYNBOL 103, 11,28,63,23,127,123 3JT- 


,220,119 

1350 SYMBOL 104,0,0,128,128,64,224, >HB 
224, 240 

1360 SYMBOL 105,240, 208,56, 248,216, >MQ 
124,236, 220 

1370 SYMBOL 107, 23, 23, 23,23, 23, 23,2 DEC 
3,23 

1380 SYMBOL 108, 208, 208, 208, 208, 208 NZ 
,208, 208, 208 

1390 SYMBOL 110,32, 73,137,82,36,56, >GN 
64,128 

1400 SYHBOL 111,4,146,145,74,36,28, DZ 
2,1 

1410 SYMBOL 112,60, 139, 137,90,36,24 >GZ 
,24,36 

1420 SYMBOL 114,60, 24,36,66,90,36,6 FU 
7,128 

1430 SYMBOL 115,16, 24,0, 24,24, 216,2 DFY 
19,60 

1440 SYMBOL 116, 108,214, 145,48,40,6 >JK 
8, 230, 70 

1450 SYMBOL 117,8, 16, 108, 190, 190,25 >JK 
4,124, 40 

1460 SYMBOL 118, 102, 195, 189,98,90,6 >HA 
6,60,66 

1470 SYMBOL 119,2,5,6,24,56, 112, 160 DEV 
,182 

1480 SYMBOL 200, 16,16,16,16,16,16,1 >DX 
6,0 

1490 SYMBOL 202,25,15,1,2,3,3,3,1  >2D 
1500 SYMBOL. 203, 248, 224, 0,128,128,1 >JB 
28, 128,0 

1510 SYMBOL 204, 32, 34, 20,8, 24, 136,9 )EQ 
9,20 

1520 SYHBOL 205,0,0,0, 12,26, 182, 142 >DG 
,33 

1530 SYMBOL 206,0, 34, 169, 202,82, 44, >GU 
213,42 

1540 SYMBOL 220,8, 16, 32, 80, 160,64,1 >FH 
60,64 

1550 SYMBOL 221,8,4,2,5,2,1,2,1 DIT 


1560 )YE 
1570 *INITIALISATIONS DIVERSES YF 
1580 )YG 


1590 k$=CHR$(16)+CHR$(10)+CHR$(16): >VJ 





ki$({)=k$+"" à " 
1600 ki$(2)=k$t"b c 


":k14(3)=k$+" >EQ 


1610 FOR x=1 TO G6:READ sa$(x):NEXT BB 


1620 DATA o,p,n,a,c, _ >PQ 
1630 ?------- >YC 
1640 FOR x=4176 TO &K18C:READ bi$  )Y4 
1650 POKE x, VAL("&"+b1$) :NEXT )ZZ 


1660 DATA 3E,02,CD,90,BB,CD,60,BB,3 >DK 
2,8D,01,3E,03,CD,90, BB, CD, 60, BB, 32, 
8E,01,C9 

1670 *------- »YG 
1680 a$="":FOR z=1 TO 44:a$=a$+CHR$ >KQ 
(9) :NEXT 

1690 FOR x=0 TO 2:READ c,d:FOR z=1 DT 
T0 5 

1700 sp$(x)=sp$(x)+CHR$(c)+CHR$(d)+ >KH 
CHR$ (9) 

1710 sp$(xt3)=sp#$(x+3)+CHR$(9)+CHR$ NF 
(c)+CHR$ (d) 

1720 NEXT:NEXT 'H 
1730 FOR x=6 TO 11:READ c:FOR y=1 T >KN 
0 c:READ d 

1740 sp$(x)=sp$(x)+CHR$(d):NEXT:NEX >F4 
T 


1750 ? YF 
1760 MENU >YG 
1770 )YH 


1780 PEN 3:INK 0,13:co1=14:CLS )'B 
1790 LOCATE 12,2:PRINT"S K 1 ? N°? >PV 

E G G":PEN 

1800 LOCATE 5,10:PRINT "1 -» NOMBRE >ZY 
DE JOUEURS - ‘24* 

1810 PRINT TAB(5)"2 -» GEANT":PRINT >Au 
TAB(5)"3 -» SLALOH" 

1820 PRINT TAB(5)"4 -» DESCENTE" :PR >KN 
INT TAB(5)"5 -» HORS PISTE" 

1830 PRINT TAB(5)"6 -> CHALLENGE TO >HB 

TAL" 

1840 INK 3,col:col=col+i:1F col=26 >PX 

THEN col=15 

1850 CALL &BD19:CALL &BD19:CALL &BD >CH 
19:CALL &BD19:CALL &BD19 

1860 i=VAL(INKEY$):1F i=0 THEN 1840 >CG 


1870 IF i=1 THEN 1880 ELSE INK 3,9: >CB 
BORDER 13:i=1-1:G0T0 1930 

1880 LOCATE 31,10:1F jo!(1,0)=2 THE HE 
N jo!(1,0)=3:PRINT"{":ELSE jo! (1,0) 
=2:PRINT"2" 

1890 GOTO 1860 >PA 
1800 ” )YC 





1910 CREATION DES PISTES >YD 
1920 ! )YE 
1930 CLS:LOCATE 15,2:PRINT"INITIALI >TX 
SATION":LOCATE 15,10:PRINT'NIVEAU - 
>":LOCATE 1,5 

1940 ON i GOSUB 2670,2680,2690,2700 >CT 
.2670, 2680, 2690, 2700, 2720 

1950 x=0:y=0:RESTORE 3110:CALL &BDO >ZD 
7:0N SQ(2) GOSUB 3020 

1960 ERASE q:DIM q(368,2):FOR z=0 T >RC 
0 f+17:r$(z)=a$:q(z,1)=40:NEXT:n=1 

1970 FOR z=0 TO f STEP 3 >K 
1980 b$=BINS(INT(RND(1)#25001),16): >KQ 
c$=BINS(INT(RND(1)#25001), 16) 

1990 FOR v=1 TO 15:t=VAL(HID$(b$,16 >KJ 
-v,1)):r=VAL(MID$(c$,16-v,1)) 


2000 IF t=1 THEN GOSUB 2630 >UX 
2010 IF r=1 THEN GOSUB 2650 JUN 
2020 v=v-2#(u=1) :u=0 >PD 
2030 NEXT >KG 
2040 IF (z MOD 6)=0 THEN 2080 >UK 
2050 e=INT(RND(1)#h)+1 > 
2060 p=INT(RND(1)#10)+16 >RD 
2070 ON e GOTO 2210,2300,2370,2430 >2F 
2080 HID$(r#(z),20,4)="  " >uC 


2090 HID$(r$(z+1),20,4)=" " AI 
2100 HID$(r$(z+2),20,4)=" * >vB 
2110 LOCATE 24,10:PRINT z:NEXT »ZC 
2120 FOR z=6 TO 8:MID$(r$(z+3),16,2 >AU 
9)=* "+sp$(z)ta$:NEXT 

2130 FOR z=9 TO 11:MID$(r$(f+z-9),1 >XD 
,44)=" "+sp$(z-6)+sp$(z)+ap#(z-9) :N 
EXT 

2140 FOR zz-f+3 TO f+15 STEP 3:F0R >RX 
2=0 TO 2:MID$(r$(z+zz),1,12)=sp$(z) 


2150 MID$(r$(zz+z),25,20)=" >YF 
*+sp$(z+3) :NEXT:NEXT 

2160 FOR z=3 TO 5:MID$(r$(z),16,29) >DR 
=" *+sp$(z) :NEXT 

2170 SOUND 130,500, 100,0,3,3:RETURN >CP 
2180 ? >») 
2190 ’PORTES TE 
2200 ? »1G 
2210 IF f)150 THEN 2570 >PR 


2220 IF p>22 OR p<19 THEN p=22 )NL 
2230 IF s=0 THEN q(zti,1)=p:5=1:ELS >MD 
E GOTO 2250 

2240 HID$(r$(z),p,5)=" e 
260 

2250 q(zti,0)=p:5=0:MID$(r$(z),p,5) >JP 
=" d * 


2260 HID$(r$(z+1),p,5)=" 


":GOTO 2 )CT 


"+CHR$(20 >RK 


0)+" 
2270 ‘ 
2280 "DOUBLES PORTES 
2290 ? 

2300 1F 12330 THEN 2510 


“:GOTO 2100 


2310 IF p+6>a THEN p=a-6 
2320 HID$(r$(z),p,10)=" e  e ": 
HID$(r$(z+1),p,10)=" "+CHR#(200)+" 


"+CHR$(200)+" 
#1,1)=pt5 
2330 GOTO 2100 
2340 ! 
2350 'BOSSES 
2360 ! 
2370 1F p+5>m THEN p=a-5 
2380 HID$(r$(z),p,9)=" "+CHR$(221) 
+CHR$(218)+CHR$(218)+CHR$(218)+CHR$ 
(220)+" " 
2390 GOTO 2090 
2400 ! 
2410 'SAPINS 
2420 ! 
2430 FOR v=1 TO 7:t=VAL(HID$(b$, 16- 
v,l)):v=v+15 
2440 IF t=1 THEN GOSUB 2630 
2450 v=v-15:v=v-3#(u=1) :u=0 
2460 NEXT:n=n-1:MID$(r$(z),n,4)=" 
":MID$(r$(zt1),n,4)=" e 
2470 MID$(r$(z+2),n,4)=" 
2110 
2480 
2490 'BROUSSAILLES 
2500 ? 
2510 w=INT(RND(1)#10):1F ptw>m THEN 
2510 
2520 HID$(r$(z),18,4)=" ":MID$(r 
$(z+1),p,ut4)=" *+CHR$ (204) +CHR$ 
(205)+CHR$ (206) +CHR$ (205) +CHR$ (204) 
+CHR$ (204) +CHR$ (206) +CHR$ (204) +CHR$ 
4206)+CHR$ (205) 
2530 GOTO 2100 
2540 
2550 ? ITENS 
2560 
2570 IF CINT(RND(1))>0 THEN 2300 
2580 w=p+((p>20)45) :uu=[NT(RND(1)45 
00):NID$(r$(z),u,5)=" "+CHRS((uuçi 
00)+115)+" 
2590 q(z,0)=u:q(2,2)=ww:G0TO 2090 
2600 ? 
2610 *SAPINS DECORS 
2620 ? 


“:q(2+1,0)=p:q({z 


*:GOTO0 


>YD 


>PK 


DYA 
>PU 


> 
JU 
GA 


>DR 


>HA 
> 
)YE 
>YF 
Du 
>Ku 


>BU 
)YA 
>YB 
)TC 








2630 HID$(r$(z),v,2)="fh":MID$(r$(z >RA 


+1),v,2)="gi" 

2640 HID$(r$(z+2),v,2)=CHR$(202)+CH >FH 
R$(203) :u=1:n=v+3:RETURN 

2650 HID$(r$(z),44-v,2)="fh":MID$(r >ZB 
$(z+1),44-v,2)="gi" 

2660 HID$(r$(z+2),44-v,2)=CHR$#(202) >LE 
+CHR$ (203) :w=1:2=40-v : RETURN 

2670 PRINT TAB(19)"GEANT":f=252:h=2 >MD 
:RETURN 

2680 PRINT TAB(19)"SLALOM":f=150:h= >NK 
1:RETURN 

2690 PRINT TAB(18)"DESCENTE":f=300: >QF 
h=3:RETURN 

2700 PRINT TAB(17)"HORS PISTE":f=35 >UR 
1:h=4: RETURN 

2710 "- )YC 
2720 'TABLEAU DES SCORES >" 
2730 ! )YE 
2740 HODE 1:1INK 0,13:PEN 3:PRINT TA DQE 
B(12) ; "TABLEAU DES SCORES":PEN 1 

2750 LOCATE 12,6:PRINT"ù GNT à SLA )PD 
ü DSC à H-P ü":LOCATE 3,7:PRINT STR 
ING$ (34,45) 

2760 LOCATE 3,8:PRINT'JOUEUR 1 ü";: >WL 
np=0:GO0SUB 2870 

2770 LOCATE 3,9:PRINT STRING$(34,45 DWE 


):LOCATE 3,10:PRINT"JOUEUR 2 ü"; :np 
=1:G0SUB 2870:LOCATE 3,11:PRINT STR 
ING$ (34,45) 

2780 FOR hu=2 TO h:j0!(0,1)=40!(0,1 >FD 
)+jo!(0,hu):jo!(1,1)=jo!(1,1)+jot (1 
hu) :NEIT 

2790 IF no=i THEN PRINT:PRINT" POUR >YN 
TON HIROIR, NARCISSE...":GO0TO 2810 
2800 ON SGN(jo!(0,1)-jo!(1,1))+1 GO >MP 
TO 2820, 2830 

2810 PRINT:PRINT:PRINT" 
AINQUEUR" :GOTO 2840 
2820 PRINT:PRINT:PRINT" 


JOUEUR 1 V >DU 


EGALITE":G >PG 


OTO 2840 
2830 PRINT:PRINT:PRINT" JOUEUR 2 V >TY 
AINQUEUR" 
2840 PRINT:PRINT:PRINT" PRESSER UNE >RJ 
TOUCHE" 
2850 GOSUB 120:CALL &BB06:mach=0  »ZA 


2860 HODE 1:PAPER O:GOSUB 1780:G0T0 >FX 
160 

2870 FOR hu=1 TO 4:PRINT USING "##4 DAV 

##"; jo! (np,hu)::PRINT "ü";:NEXT:RET 

URN 


2880 ? ZA 





2890 ? INITIALISATIONS > 
2900 " , »YD 
2910 SYMBOL AFTER 140:PEN 1:MODE 2: DFC 
END 

2920 DATA 102,104,103,105,202,203 DV 


2930 DATA 9,15,1,9,9,101,9,101,15,3 >AA 


2940 DATA 10,15,1,9,9,101,216,101,2 >GG 
51,15,3 

2950 DATA 11,15,1,248,35,124,9,124, 
35,35,15,3 

2960 DATA 13,107,22,0,24,65,82, 82,7 
3,686,69,69, 24,108 

2970 DATA 13,15,2,200,9,9,9,9,9,9,9 
,200,15,3 

2980 DATA 13,15,2,200,9,9,9,9,9,9,9 
,200,15,3 

2990 y 

3000 MUSIQUE 

3010 ’ 

3020 ON y GOTO 3030, 3030, 3060, 3040, 
3040, 3040, 3040, 3040, 3040, 3040, 3040, 
3060, 3050, 3050, 3050, 3050, 3050, 3050, 
3050, 3050, 3050, 3050, 3050, 3050, 3050, 
3050, 3050, 3060, 3050, 3050, 3050, 3050, 
3050, 3090 

3030 READ a,b:SOUND 2,a,b,0,3,2:y=y 
+1:0N SQ(2) GOSUB 3020:RETURN 

3040 READ a:SOUND 2,a,22,0,3,2:y=y+ 
1:0N SQ(2) GOSUB 3020:RETURN 

3050 READ a,b:SOUND 2,a,b,0,4,3:y=y 
+1:0N SQ(2) GOSUB 3020:RETURN 

3060 ON x GOTO 3070,3070, 3080, 3080, 
3080, 3080, 3080, 3080, 3090, 3090, 3090, 
3100 

3070 y=0:x=x+1:RESTORE 3110:G0T0 30 )FB 
30 

3080 y=4:x=xt{:RESTORE 3120:G0T0 30 >FJ 
40 

3090 y=12:x=1+1:RESTORE 3130:G0T0 3 >FC 
050 

3100 y=29:x=8:RESTORE 3140:G0T0 305 >EA 
0 

3110 DATA 716,44,902, 22,902, 22 NY 
3120 DATA 716, 716,638, 716,602, 716,5 >FX 
36,602 

3130 DATA 718,44,638,9,625,11,638,1 >RN 
3,638, 44,716,22,716,22, 716,22, 716,4 
4,602,9,589, 11,602, 13,602, 46,638, 22 

, 638, 22,638, 22 

3140 DATA 379,21,402,67,451,22,478, DJ] 
22,451,67 


1000 "HHAHMMHHANEENNEEHNENNNNEENNEEE >ID 
### œ 


ns 
1010 '### "-h TITREUR 
LEE 


1020 '### J.REINGOT- OCTOBRE 1988 XF 
CEE] 


1030 ’#t# REDEFINITIONS LETTRES IG 
LEE 

1040 HHHANENENNENNENENNENNENENNEESE LH 
LEE: 

1050 RESTORE 1110 >LH 
1060 SYHBOL AFTER 65 >PY 
1070 FOR 1-97 TO 122 ff DM 
1080 FOR J=0 TO 6 1:14 CC 
1090 READ X:TXGIX 7 » 
1100 NEXT D 
1110 SYHBOL 1,TX(0),TX(1),TX(2), TLC AF 
3),TX(4), TX(S), TA(6) 

1120 NEXT XF 


1130 DATA 24,36,66, 126,66,66,66, 124 MH 
,34,34,60,34 

1140 DATA 34,124, 28,34,64,64,64,34, 
28,120 

1150 DATA 36,34, 34, 34,36, 120, 126,64 >GB 
,64,124 

1160 DATA 64,64, 126,126,64,64, 124,6 DKB 
4,64,64, 28 

1170 DATA 34,64, 78,66, 34,28,66,66,6 DHH 
6,126,66 

1180 DATA 66,66, 28,8,8,8,8,8,28,14, KB 
4,4,4,4,68 

1190 DATA 56,68,68, 72,112, 72,68,66, DHJ 
64,64,64 

1200 DATA 64,64,64, 126,66, 102, 90,90 >JG 


[rrreur 


Pour obtenir quelques effets 
graphiques sur vos titres de 
présentation, il n’est pas 
nécessaire d'utiliser un utilitaire 
de dessin ou de programmer une 
série de DRAW et de PLOT. 

En tirant habilement parti du 
programme ci-dessous vous 
créerez de magnifiques titres. 
A vous d'ajouter éventuellement 
des routines de sauvegarde 
d'écran et d'impression 
sur papier. 





1210 DATA 66,98, 82, 74, 70,66,66,60,6 >KA 
6,66,66,66 

1220 DATA 66,60, 124,66,66, 124,64,64 DFA 
,64,60 

1230 DATA 66,66,66, 74,68,58,124,66, JZ 
66, 124, 72 

1240 DATA 68,66,60,66,64,60,2,66,60 >GU 
,62,8,8 





1250 DATA 8,8,8,8,66,66,66,66,66,66 >JS 
,60,66,66 

1260 DATA 66,36,36,24,24,66,66,66,9 >HH 
0,90, 102 

1270 DATA 99,66,66,36,24,36,66,66,3 >GL 
4,34,34 

1280 DATA 28,8,8,8,126,2,4,24,32,64 >DN 
126 

1290 YHHMMRHENEESRNNNNNEENNUUNNNNEIN 
LEE 

1300 ‘'##3 
#4 

1310 VHHHMNHENEENNNNNNNEENNNLENEEIX ) LH 
ÉEL 


REDEFINITION MOTIFS 


1320 SYMBOL 200,0,0,56, 56,56 WU 
1330 SYHBOL 201,0,124,124,124,124,1 CA 
24 

1340 SYMBOL 202,0,0,56, 40,56 >vQ 
1350 SYMBOL 203,0,124,68,68,68,124 AU 
1360 SYHBOL 204, 0,0, 16,56, 16 VU 
1370 SYMBOL 205,0,16,56,126,56,16 ZX 


1380 SYMBOL 206,0, 48, 120,252, 252,12 DER 
0,48 

1390 SYMBOL 207,0,0, 24, 36, 36,24 
1400 SYMBOL 208,0, 24,36,66,66, 36,24 >BX 
1410 SYMBOL 209,60, 102,195, 129,129, >LY 
195, 102,60 

1420 SYMBOL 210,0, 36,90, 36, 36,90,36 >BR 
1430 SYMBOL 211,0,90, 36,90, 90, 36,90 >BU 
1440 SYMBOL 212, 16,84,56, 254,56, 84, 
16 

1450 SYMBOL 213, 40, 40, 198,0, 198, 40, 
40 

1460 SYMBOL 214,0,168, 84, 168,84, 168 DEF 
,84 

1470 SYMBOL 215,0, 102,102, 24,24, 102 >EQ 
,102 

1480 SYMBOL 216,0, 24, 24, 102,102, 24, >CD 
24 

1490 SYMBOL 217,0,66,36, 24, 24, 36,66 >BG 
1500 SYHBOL 218,0,60, 90, 102, 102, 90, 
60 

1510 SYMBOL 219,0, 40, 108, 16, 108, 40 
1520 SYMBOL 220,0, 73,42, 20,107, 20,4 >EZ 
2,73 

1530 SYMBOL 221,0,54,85, 107, 20,107, )FH 
85,54 

1540 SYMBOL 222,0,62, 73,93, 118,93,7 )EG 
3,62 

1550 SYMBOL 223,0,0,54, 34,8, 34,54 
1560 SYMBOL 224,0, 20,54, 127, 20, 127, 
54, 20 


)ZY 
>FV 


1570 SYMBOL 225,0,42,73,0,107,0, 73, 
42 

1580 SYMBOL 226,126,195,153, 165,165 
,153, 195,126 

2000 HOMME 
##+ 

2010 '### 
[TE 

POYIRETEEETTII ETES III SEE 
##4 

2030 T$="TITREUR" : GO 
F-13:4=2:C2=26:B=2:C3-0:D=6:14$="N": 

EC=1:G0T0 2370 

2040 CLS:MODE 1:BORDER 13:1INK 0,13: 

PAPER O:INK 1,0 

2050 PRINT "VOUS POUVEZ ENTRER UN T 

EXTE DE 4 LIGNES AU MAXIMUM." 

2060 PRINT:PRINT "SEPAREZ LES MOTS 

PAR UN ESPACE." 

2070 PRINT:PRINT "SI VOUS VOULEZ PL 

USIEURS MOTS SUR LA MEME LIGNE S 
EPAREZ-LES PAR LE SIGNE +" 

2080 PRINT:PRINT"CHOISISSEZ LA TAIL 
LE" 

2090 PRINT"CHOISISSEZ LA COULEUR DU 
FOND" 

2100 PRINT'CHOISISSEZ LE MOTIF 1 ET 
SA COULEUR" 


TITRE ET INSTRUCTIONS 


CI 
JD 


2110 PRINT'CHOISISSEZ LE MOTIF 2 ET 


SA COULEUR" 


2120 PRINT®(LE MOTIF 2 SE PLACE SUR 


LE MOTIF 1)" 


2130 PRINT:PRINT"ENTREZ LE DECALAGE 


ENTRE LES 2 MOTIFS: DE -12 À 12." 
2140 PRINT:PRINT"VOUS POUVEZ ENSUIT 
E CHOISIR UN TITRE  ECRIT DROIT 0 


U INCLINE,EN GRAS OU EN MAIGRE." 


2150 LOCATE 10,25:PRINT'"appuyez sur 
une touche" 

2160 CALL &BBIB:CLS 

PENDU EETIIIFEISEEESEITEEEFEISEEEES 
#44 

2180 ‘### 
##4 

21490 ARAMURRMRUNUNNNENNMUENNES SX 
#44 

2200 FOR 1=1 TO 9:LOCATE 1#4,15:PRI 
NT CHR$(199+1):LOCATE 1#4-1,17:PRIN 

T L'NEXT 

2210 FOR 1=10 TO 18:LOCATE 1#4-36,1 

G:PRINT CHR$(199+1):LOCATE 1#4-37,2 
{:PRINT I:NEXT 


ENTREE DES PARAHETRES 


D NC4aN,Ta-C,T 
D £UAUALANTUsL / 





>CK C2220 FOR 1:19 TO 27:LOCATE 1#4-72,2 


>NN 





3:PRINT CHR$(199+1):LOCATE 1#4-73,2 
S:PRINT IL:NEXT 

2230 LOCATE 1,1:INPUT "TEXTE: ";T$ 
2240 GOSUB 2640 

2250 LOCATE 1,3:INPUT "TAILLE :";LA 
2260 LOCATE 1,4: INPUT "COULEUR DU F 
OND:";CF 

2270 LOCATE 1,5:INPUT "MOTIF 1";A 
2280 LOCATE 20,5:INPUT "COULEUR:";C 
2 

2290 LOCATE 1,6:INPUT "MOTIF 2";:B 
2300 LOCATE 20,6:INPUT "COULEUR: ";C 
3 

2310 INPUT "DECALAGE:";D 

2320 INPUT “INCLINAISON O/N";1$ 
2330 INPUT "ECRITURE GRASSE(1) OÙ « 
aigre(2):";ec 


>NG 1 


>BQ 
ic 
>CZ 
>NG 


>BC 
)EZ 


>BH 
)EU 


TT 
)AF 
>WD 










2340 PHRHAMNEUNEENMEUNNEEUNNEUNUENX 
### 

2350 ‘#11 
LEE 

2360 'HHNNMANMEEENNUSENEANNENNNRESX 
CE 

2370 I$=UPPER$(1$):1F 1$="C" THEN | 
N=1:1C=-2 ELSE IN-0 

2380 IF EC=1 THEN T$=UPPER$(T$) ELS 
E T$=LOWERS(T$) 

2390 IF M=1 THEN T$(1)=T$ 

2400 IF M=2 THEN T$(1)=LEFTS(TS,K(1 
)-1):T$(2)=RIGHT$(TS,L-K(1)) 

2410 IF M=3 THEN T$(1)=LEFTS(TS,K(1 
)-1):T$(3)=RIGHT$S(T$,L-K(2)):T$(2)= 
MID$(T$,K(1)+1,K(2)3-K(1)-1) 

2420 IF M=4 THEN T$(1)=LEFTS(T$,K(1 
)-1):T$(4)=RIGHTS(TS,L-K(3)):T$(2)= 
MID$(T$,K(1)+1,K(2)-K(1)-1):T$(3)=M 
ID$(T$,K(2)+1,K(3)-K(2)-1) 

2430 FOR 1=1 TO M:L(I)=LEN(T$(1)):N 
EXT 


CADRAGE ET IMPRESSION 


"0 SUR MINITEL 


36 15 
Code MHZ 


)YB 


)YC 


»YD 


NX 


>TN 


>RH 
>HK 


>GL 





JUU 


>FM 





2440 FOR 1=1 TO M:FOR J=1 TO L(1) 
2450 IF MID$(T$(1),J,1)="#" THEN MI 
D$(T$(1),J,1)=" 

2460 NEXT:NEXT 

2470 LX=0:FO0R 1=1 TO M:1F L(IDLXT 
HEN LX=L(I):R1=1 

2480 NEIT 

2490 A1$=CHR$(199+A) :A2$=CHR$(199+B 
) 

2500 MODE 1:BORDER CF:INK 0,CF:PAPE 
R O:INK 1,cf:PEN 1:INK 2,C2:INK 3,0 


3 K. 
2510 PEN 1 A 
2520 GOSUB 2700 


2530 H(R1)=(640-L(R1)#16#LA)/2:WHIL 
E H(R1)<10:LA=LA-1:H(R1)=(640-LCR1) 
#164LA) /2:WEND 

2540 GOSUB 2700 

2550 FOR 1=1 TO M:H(1)=(640-L(1)#16 
#LA)/2:NEXT 

2560 FOR 1=1 TO M:LOCATE 1,1:PRINT 
T$(i) 

2570 FOR K=400 TO 384 STEP -2 

2580 R=R+2:1C=1C+2 

2590 FOR J=0 TO 164L(1) STEP 2 

2600 IF TEST(J,K)=1 THEN PRINT CHR$ 
(23)+CHR$ (3) ; : TAG:MOVE H(1)+J#LA-1C 
#IN,VCI)-RELA,3:PRINT A1$::MOVE HU 
)+J4LA-IC#IN+D, V(I)-RaLA-D, 2:PRINT 
A2$::TAGOFF:PRINT CHR$(23)+CHR$ (0) ; 

2610 NEXT:NEXT:R=-2:1C=-2:PEN O:LOC 
ATE 1,1:PRINT STRING$(1(i),143):PEN 
L:NEXT 

2620 SOUND 1,60,40,15:CALL &BB18:CL 

S:G0T0 2040 

2630 WHILE X<10:LA=LA-1:X=(400-MYLA 


116)/(m+1) :VEND:RETURN 
2640 M=1:R=-2 
2650 L=LEN(T#) > 


2660 FOR 1=1 TO L:IF MID$(t#,1,1)=" 
" THEN M=H+1:K(H-1):1 

2670 NEXT 

2680 1F M>4 THEN PRINT "LE TITRE NE 
DOIT PAS COMPORTER PLUS DE 4 LIGNE 

S":FOR t=0 TO 2000:NEXT:PRINT CHR$( 
7):CLS:G0TO 2200 € 

2600 RETURN a 
2700 y=(400-16#latm)/(mti) [:: 

2710 FOR i=1 TO EU 
2120 v(i)=400-(y#1+16#{a#(i-1)) 

2730 NEIT 

2740 RETURN 


JYU 
)TC 


LA 
UF 








Laurent GIGNOUD 


Traverser un champ de mines 
sous le feu nourri d'un 
canon antichar : 
quelle charmante balade 
en perspective ! 


bord de votre véhicule de sauve- 

tage, il vous faut donc slalomer 
entre les dangereuses mines, tout en 
évitant les non moins meurtriers bou- 
lets de canon qui pleuvent sur votre 
tête. Attention, le canon ne tire pas au 
hasard ! En effet, il est un danger per- 
manent Car il suit tous vos déplace- 
ments. 

Mais pourquoi donc courir tant de 
risques ? Tout simplement pour récupé- 
rer un prisonnier allié qui se trouve de 
l'autre côté du champ, et qui sursaute à 
chaque explosion. 


(UML CTECTEPTEFE TETE TTEETETESTZE 
CT 
20 '# 
# i 
30 HNFFANNNENNEENFENNNEENNNENNNSS 


MINES - 1987 





CEPEI Q 

40 MODE 1 >BG 
50 CLS >fF 
60 BORDER 0 >WK 


70 INK 0,0:1INK 1,11:INK 2,6:INK 3,2 : 
3 

80 FOR 1=1 TO 15 STEP 2:1NK 1,RND(1 >YC 
)#16+1:PLOT 1,226-i"2:DRAW 639,226- 
1°2,1:PLOT 320,225:DRAN 1,226-i°2:P 

LOT 320,225:DRAW 639,226-i"2,1:NEXT 
:PLOT 320,225:DRAN 100,1,1:PLOT 320 
,225:DRA4 540,1,1:PLOT 320,225 :DRAW 
250,1,1:PLOT 320,225:DRAN 390, 1,1 

90 INK 1,23: INK 3,26 MA 
100 PEN 3:LOCATE 13,1:PRINT "LAUREN >QX 





Vous pouvez déplacer votre véhicule 
(qui avance automatiquement) vers le 
haut ou vers le bas avec le joystick ou 
les touches 19 (haut) et 22 (bas). 

Heureusement, les mines ne sont 
pas indestructibles : si un boulet les 
touche, elles explosent et deviennent 
inoffensives. 


Chaque mine touchée vous rapporte | 


5 points. 

Un prisonnier sauvé vous rapporte 
50 points. 

Si vous accomplissez votre mission, 
vous passez au secteur suivant, plus dif- 
ficile : 10 mines en plus et le prisonnier 
est décalé d'un cran vers le canon. 

Score, Hi-score et secteur sont affi- 
chés en bas de l'écran. 

Le premier programme se sauve- 
garde sous le nom de "mines", le se- 
cond sous le nom de "mines2". Un con- 
seil : repérer dès le départ où se trouve 
votre prisonnier afin de ne pas le faire 
détruire par le canon en vous mettant 
sur la même ligne. 


T GIGNOUD" 

110 LOCATE 17,3:PRINT"Présente" >DD 
120 FOR i=0 TO 180 STEP 1.5 >TP 
130 DEG >RA 
140 INK 2,RND(1)#16+1 »NQ 
150 ORIGIN 320,225 JU 
160 DRAW 50#C05(1),50#SIN(1),2 )YA 
170 NEXT >ED 
180 INK 2,2 )H 
180 PEN 2:LOCATE 15,7:PRINT "M 1  )JK 
NE S" 

200 FOR V=15 TO 5 STEP -i > 
210 SOUND 1,450,40, V,0,0,25 >K 
220 NEXT >DK 
230 FOR 1=1 TO 2000:NEXT >RN 
240 ? RG 


250 LOCATE 14,24:PEN 3:PRINT"Règles >PF 


(O/N) ?* 


260 a$=INKEY$:A$=UPPERS(a$) > 
270 IF a$="" THEN 260 >HB 
280 IF a$="0" THEN 310 DL 
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290 IF a$="N" THEN RUN"MINES2 )K 
300 GOTO 260 >YH 
310 YHHSHNNNENNES )RE 
320 * REGLES >RF 
330 "HHHHNNHHHEES >RG 
340 MODE 1 >HF 
350 INK 1,19:PEN 1:PRINT CHR$(24);S >TJ 


PC(17);CHR$(24);" MINES 

SPC(16) ;CHRS (24) 

360 PEN 3:PRINT"Vous devez, à bord d >VA 

e votre véhicule de sauvetage, récu 

pérer un prisonnier allié." 

370 PRINT:PRINT'Pour cela, {1 vous 
faut traverser unchasp de saines 
sous le feu d' un canon antichar. 

L) 

380 PRINT:PRINT"Vous pouvez déplace 

r votre véhicule en haut ou en bas 
avec le joystick ou les touches 1 

8 et 22. Positionnez le sur le pris 

onnier pour le sauver." 

390 PRINT:PRINT"Chaque aine touchée >TQ 
par le canon = 5 Pts" 


*;CHR$ (24); 


400 PRINT" Un prisonnier sauvé = 50 )TB 
Pts." 

410 PRINT:PRINT"Lorsqu' un prisonni )TV 
er est gauvé, vous passez au sect 
eur suivant (+ difficile)." 

420 LOCATE 1,24:PEN 1:PRINT CHR$(24 >WP 
);SPC(12) ;CHR$(24);" BONNE CHANCE ! 
*;CHRS (24) ;SPC(12) ;CHRS (24) 

430 CALL &BB06 : RUN"MINES2 >UU 


MiNes Z 


10 PRRANNNNNNHNAHANNNHNNEENNNSNNEESR )LA 
LELEE 


CR 


20 's >LB 
4 

30 ’# MN I N E S LC 
4 

40 1 >LD 
4 

50 ‘+ L. GIGNOUD LE 
3 

60 '# >LF 
4 

70 's OCT 87 LG 
4 

80 ‘+ >LH 





# 
00 PHNHHENNEHENEENNNENNNNNNNNENNEE SX 
LELEE 


100 MODE 1:WINDOW #1,2,39,24,24:PAP 


ER #1,0 


110 xx=29:coul=18:3c=0:a=70:sect=i: ) 


INK 0,0:BORDER O:1INK 1,26:1INK 2,11: 

INK 3,18 

120 'HRAANRRSARERANAENNIANSEIANEEX 

ÉFTEE 

130 ’# 
3 

140 'ANSENNAENNEENNENSNNENNNENNNES 

CPP E 

150 CLS 

160 PLOT 639,0, 1 

170 DRAV 639,399 

180 DRAW 0,398 

190 DRAY 0,0 

200 DRAW 639,0 

210 PLOT 0,48:DRAW 639, 48 

220 KEY 138," speed key 32,2"+CHR4 (1 

3) 

230 ? 

240 SYHBOL 255,0,60,66,90,90,66,60, 

0 

250 SYHBOL 254,126,36,126,251,251,1 

26,36, 126 

260 "HHHHNNEHNNEEENEENNNNENNENNNENS 

HR 

270 ’# 

ER + 

280 PARRENNRNNNNNNENNNENNNEENNEEE 

CETTE 

290 SPEED KEY 4,4 

300 yy=INT(RND#20)+2:1F yy=10 THEN 

300 

310 INK 3,coul:mine=0:x1=39:x=2:y=1 

0 

320 WHILE sine(s 

330 xo=INT(RND438) +2 

340 yo=INT(RND#20) +2 

350 IF xo=3 AND yo=10 THEN 380 

360 LOCATE x0, yo 

370 PEN 3:PRINT CHR$(255) 

380 nine=aine+i:WEND 

390 xx=xxt1:1F xx)35 THEN xx=35 

400 ? 

410 LOCATE #1,3,1:PEN#1,1:PRINT#1," 

SCORE ":PEN 2:LOCATE 9,24:PRINT sc 

420 LOCATES1,14,1:PEN#1,1:PRINT#i," 

. HISCORE ":PEN 2:LOCATE 22,24:PRINT 


DESSIN CADRE 


PLACEMENT HINES & PRISONNI 


>EG 





hsc 

430 LOCATE#1,27,1:PEN#1,1:PRINT#1," 

SECTEUR ":PEN 2:LOCATE 36,24:PRINT 

sect 

440 PEN 2:LOCATE xx,yy:PRINT " ";CH 

R$(248) 

ECRRETTTETETENTETETTTT ET TETE ETS) 

CETES 

460 !# 
4 

YOUR LEE EEE ET ET ET ET TETE TETE 

Hi 

480 LOCATE xi,y:y1=y 

490 PEN 2:PRINT CHR$(157) 

500 FOR 1=37 TO x STEP -1 

510 LOCATE 1,y1:PRINT CHR$(144);" " 


BOUCLE PRINCIPALE 


520 IF (1=ROUND(x) AND y=yi) THEN G 
OSUB 640 

530 IF {-1=xx AND yi=yy THEN 890 
540 IF TEST((1-1)#16-8,400-(16%y1)+ 
6)=3 THEN sc=sc+5:G0T0 870 

550 GOSUB 680 

560 NEXT 

570 LOCATE x,y1:PRINT " ":1F TEST(( 
16#(x+1))-8,400-(16#y)+6)=3 THEN LO 

CATE x,y:PRINT * ":x=x+1:G0T0 640 E 
LSE x=x+1:LOCATE x-1,y:PRINT " ":LO 

CATE x,y:PRINT CHR$(254) 

580 IF (x=xx AND y=yy) OR (x=xx+i À 

ND y=yy) OR (x=xx+2 AND y=yy) THEN 
730 

590 LOCATE xx, yy:PEN 2:PRINT * ":CH 
R$ (249) 

600 GOTO 400 

GO 'ANRANNSSNNEENNENINNEINNNENNE 
CETTE 
620 ’# 

4 

630 "ARRENESEENESNNEIENNEENNNNNNNE 
CTTTE 

640 SOUND 1,1000,50,15,,,15:FOR d=1 
TO 41:LOCATE x,y:PRINT CHR#(24) ;CH 
R#(238) ;CHR$(24) :LOCATE x,y:PRINT C 
HR$(238):NEXT:FOR w=1 TO 2000:NEXT: 
CLS#1:PRINT#1, "Vous avez perdu..." 

650 IF sc>hsc THEN hsc=sc 

660 FOR w=1 TO 3000:NEXT 

670 CLS#1:PRINT #1,"Votre score : * 
:LOCATE 15,24:PEN 2:PRINT sc:FOR v= 
1 TO 4000:NEIT:G0TO 110 

680 "HNEHNEEHENNENENNEENNENNNEEUNEE 


SOUS-PROGRANHES 





17 


»BQ 


>KA 


TE 





CEETE 
690 IF INKEY(19)=0 OR INKEY(72)=0 T 
HEN LOCATE x,y:PRINT " ":LOCATE ni, 
y:PRINT * ":1F TEST((16#x)-8,400-(1 
6#(y-1))+6)=3 THEN y=y-1:G0T0 640 E 
LSE y=y-1:1F y<C2 THEN y=2:RETURN 
700 IF INKEY(22)=0 OR INKEY(73)=0 T 
HEN LOCATE x,y:PRINT * ":LOCATE xi, 
Y:PRINT * ":1F TEST((16#x)-8,400-(1 
6#(y+1))+6)=3 THEN y=y+1:G0T0 640 E 
LSE y=y+1:1F y>21 THEN y=21:RETURN 
710 LOCATE x,y:PRINT CHR#(254) 

720 RETURN 

130 HRRHNNNINNENNNNEENNENNNEUNNEE 
CETTE 

740 FOR N=1 TO 8 

750 FOR 0=200 TO 0 STEP -10 

760 SOUND 1,0,1,15 

770 NEXT:NEXT 

780 CLS #1:PRINT#1:PRINT#1, "Bravo ! 
*:FOR v=1 TO 2000:NEXT:CLS#1:PRINTS 
1, "Le prisonnier est sauvé." 

790 FOR w=1 TO 3000:NEXT 

800 sc=sct50:sect=sect+1:CLS#1:PRIN 

T#1, "Passez maintenant au secteur * 
:LOCATE 30,24:PEN 2:PRINT sect 

810 coul=sect+3:n=2+10 

820 FOR wu=1 TO 3000:NEXT:G0TO 150 
CRE TTEFFPTEEPT TEINTE TETE 
Ha 

840 IF TEST((i-1)#16-8,400-(16*y)+6 
)=3 THEN SOUND 1,1000,50,15,,,15:L0 
CATE i-1,y1:PRINT CHR$(238);" ":G0T 
0 400 

850 RETURN 

860 "HHNMNMNNNNANNEENNNENNNEEUNNE 
Hs 

870 SOUND 135,600, 20, 10, ,,15:LOCATE 
1-1,y1:PRINT CHR$(238):;" ":G0T0 57 
0 

CT'ORETET ETES PT TENTE TETE TESTS 
CPTTE 

890 SOUND 1,1000,50,15,,,15:FOR g=1 
TO 31:LOCATE xx,yy:PRINT * ":CHRS( 

24) ;CHR$ (238) ;CHRS(24) :LOCATE xx+1, 
yy:PRINT CHR$ (238) :NEXT 

900 CLS#1:PRINT#1, "Vous avez perdu. 
..":FOR w=1 TO 3000:NEXT:IF sc>hsc 

THEN hsc=sc 

910 CLS#1:PRINT#1, "Votre score : ": 

LOCATE 15,24:PEN 2:PRINT sc:FOR v=1 
TO 4000:NEXT:G0TO 110 mm 


>BQ 


>FU 


)Y 


TA 


2] 
?TE 


>T4 


>TG 





Pour les enfants , 
de 6 à 10 ans (ou 77 ans) : 








MODE D'EMPLOI 


e programme demande d'inscrire 
12 mots à étudier (9 lettres au 
maximum, voir le grand frère ou la 


grande sœur). Il faut appuyer sur shift 
pour obtenir les lettres accentuées (voir 
modèle pour aménagement du clavier 
QWERTY). Puis vient la règle du jeu. 
Il suffit alors d’appuyer sur la touche 
<ESPACE> et c’est parti. 

Il y a 3 séries de 4 mots à écrire en 
bas à droite de l’écran dans le bon ordre 
comme le modèle en ramassant les let- 
tres et en évitant les obstacles. 

Chaque série utilise les quatre mots 
qui apparaissent chacun à leur tour à 
l’écran pour un même tableau. Il faut 


1984 VOLK 


faire vite car le temps est limité. On 
trouve quatre tableaux par série: ler 
tableau arbustes et champignons, 2è 
tableau arbustes, champignons et ma- 
res, 3è tableau , les trois obstacles + le 
chien. Il faut simplement éviter le chien 
qui vous ignorera. 4è tableau (le chien 
est remplacé par le loup). Attention, il 
attaque ! 

Le meilleur score des quatre ta- 
bleaux d’une même série est indiqué à 
l'écran. 

Le programme tourne sans arrêt sur les 
3 séries qui se répètent. 


ÆNB.: Pour donner du tonus au 
loup, supprimer la ligne n° 410. Pour 
un clavier AZERTY, ne pas taper les 
lignes 760 à 815. 


Pour aménager le clavier QWERTY (6128) 





1 ‘lettres accentuees 
2 GOSUB 750 
3 "presentation 


8 DIM 1$(10),a$(12),b(12).at#(12) 


10 ENV 1,5,1,5,5,-1,5 
50 b$=CHR#(32) 
80 a$-CHR$ (248) 


90 c$=CHR# (207) :d$=CHR$ (229) :e$=CHR 


$(231) 


95 f$=CHR$ (249) : g$=CHR$ (250) :e19=CH 


R$(251) :g1$=CHR$ (252) 
96 ‘'aots 


98 INK 0,1:INK 1,6:INK 2,26 


100 MODE 1:PAPER O:PEN 1:CLS:PRINT" 
LES 12 MOTS À ECRIRE -8 lettres max 


i-* 
112 PEN 2:F0R n=1 TO 12 
113 LOCATE 5,(n#2)+1: 


114 CLEAR INPUT: INPUT "", aî$(n):b( 


n)=LEN(ai$(n)) 


122 IF b(n)>9 THEN LOCATE 5, (n#2)+1 


:PRINT SPACE$(36):GOT0 113 


124 NEXT n 
125 GOSUB 1020 


126 INK 1,6:1NK 2,26: INK 3,13:INK 4 
,9:INK 5,15:INK 6,24:INK 7,14: INK 8 


,17:INK 9,0:INK 10,2:INK 11,12 


130 s=0 

133 IF 3=3 THEN s=0 
135 FOR n=1 TO 4 
140 a$(n)=ai$(4tstn) 
150 NEXT 

160 s=s8+1 

200 ’debut jeu 








é  ê é 1 








> 
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ent 








(ep 





FA 
>VG 
>FC 
»YG 
>Nu 
WF 
>WK 
>HC 


>AN 


>RC D 








205 pp=0:22=0:HODE 0:BORDER 13 "Y 


210 pp=PP+1 >)X 
215 IF pp=5 THEN GOTO 133 >RH 
220 j=0:sc=100:z1=0 >RQ 
225 ON SQ(1) GOSUB 730 >PG 
230 j=j#1 >DB 
235 1F j>4 THEN GOTO 640 YE 


240 ee=0:AFTER 400#B(J),1 GOSUB 625 >BA 
245 CLS:LOCATE 1+INT((10-b(1))/2),2 >YA 
S:PEN S:PRINT A$(J) 

250 "placement obstacles >RH 
255 FOR n=1 TO 8 )1B 
260 x1=INT((RND#18)+1):y1=INT((RND# >HD 
22)+1):1F yi=1 THEN GOTO 260 

265 LOCATE xi,yi:PEN 1:PRINT c$ )2T 
270 x2=INT((RND#18)+1):y2=INT((RNDE DH) 
22)+1):1F y2=1 THEN GOTO 270 

275 LOCATE x2,y2:PEN 11:PRINT d# AA 
280 IF pp=1 THEN GOTO 295 >TG 
285 x3=INT(CRND#18)+1):y3=INT(CRNDE HA 
22)+1):1F y3=1 THEN GOTO 285 

290 LOCATE x3,y3:PEN 10:PRINT f$ AA 


295 NEXT n >PK 
300 ’placesent lettres >RD 
305 FOR N=1 TO B(J) KG 
310 L$(N)=HID$CAS(J),N, 1) >TH 


315 X1=INT((RND#18)+1):Y1=INT((RNDE >JV 
21)+1) 

320 IF y1=1 THEN GOTO 315 >RD 
325 LOCATE X1,Y1:v#$=COPYCHRS(40):1F >AP 
v$O" " THEN GOTO 315 


330 PEN 2:PRINT 1$(n) >PL 
335 NEXT N >PE 
340 ‘chien et loup :depart >RH 
345 IF pp<3 THEN GOTO 375 >TJ 


350 15=INT((RND#18)+1):Y5S=INT((RND# >JD 
22)#1) 

355 IF y5=1 THEN GOTO 350 >RQ 

360 LOCATE 15,Y5:W$=COPYCHRS (#0): 1F >AY 
W$O" * THEN GOTO 350 

365 IF pp=3 THEN PEN 9:PRINT g$ ELS >TH 
E PEN 3:PRINT e$ 

370 personnage :depart >TA 
375 1=INT((RND#18)+1):Y=INT((RND#22 >HR 
)+1) 

380 IF y=1 THEN GOTO 375 >RP 

385 LOCATE 1,Y:W$=COPYCHRS(#0):1F W >YB 
$C" "* THEN GOTO 375 

390 CLEAR INPUT:PEN 6:PRINT A$:xa=0 >KK 
:ya=0 

395 PEN 7:LOCATE 5,1:PRINT"score="; »>HC 
sc 








400 ‘debut boucle principale )RE 


405 ‘ligne 410=ralentisseur chien/1 >RK 
oup 


410 xa7=INT(RND#10)+1:1F xa7(9 THEN DLY 
GOTO 525 


415 ‘loup et chien :ecran >TA 
420 IF pp<3 THEN GOTO 525 >RH 
425 LOCATE «5,y5:PRINT" * >UW 


430 1F pp=4 THEN GOTO 455 ELSE xa5= >IH 
INT(RND#2) : yaS=INT(RND#2) :xa6=INT(R 

ND#4)+1:0N xa6 GOTO 435,440, 445,450 

435 x5=xStxa5:y5=y5tya5:G0TO 475 BE 
440 x5=x5+xa5:y5=y5-yaS:G0TO 475  )BC 
445 x5=x5-xa5:y5=ySt+ya5:G0TO 475 >BH 
450 x5=15-xa5:y5=y5-ya5:G0TO 475 )BF 
455 IF x-x5(0 THEN x5=x5-1:xa5=-1 AP 
460 IF x-x5>0 THEN x5=x5+1:xa5=1 )ZJ 
465 IF y-y5<0 THEN y5=y5-1:ya5=-1 AW 
470 IF y-y5)0 THEN y5=y5t1:ya5=1 29 


475 IF x5<1 THEN x5=1 >NG 
480 IF x5220 THEN x5=20 >0Q 
485 IF y5<2 THEN y5=2 >PD 
490 IF y5)24 THEN y5=24 )QC 


495 IF x=x5 AND y=y5 THEN LOCATE x5 >QK 
,Y5:1F pp=4 THEN PEN 3:PRINT e$:G0T 

0 620:ELSE PEN 9:PRINT g$:G0T0 620 

500 LOCATE 15,Y5:W1$=COPYCHR$(40):1 >CB 
F W1$C" " THEN GOTO 430 

505 LOCATE x5,y5 LU 
510 IF pp=3 THEN PEN 9:1F xa5=1 THE )CD 
N PRINT g$ ELSE PRINT gi$ 

515 IF pp=4 THEN PEN 3:1F xa5=-{ TH >CH 
EN PRINT e$ ELSE PRINT e1$ 

520 "deplacesent personnage >RH 
525 IF INKEY(0)=0 OR J0Y(0)=1 THEN FN 
ya=-{ 

530 1F INKEY(2)=0 OR J0Y(0)=2 THEN EC 
ya={ 

535 IF INKEY(8)=0 OR J0Y(0)=4 THEN )FZ 
xa=-{ 

540 IF INKEY(1)=0 OR J0Y(0)=8 THEN >EH 
xa={ 

545 IF xa=0 AND ya=0 THEN GOTO 395 >ZA 


550 LOCATE x,y:PRINT b$ >TN 
555 x=x+ra:y=ytya >NN 
560 IF x<i THEN x=1 >KC 
565 IF 1220 THEN x=20 >NA 
570 IF y<2 THEN y=2 )H 
575 IF y>24 THEN y=24 >PD 


580 "controle deplacement faisable >TD 
585 LOCATE x,y:tt$=COPYCHRS(#0):1F BL 
tt#O" "THEN GOTO 595 
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590 GOTO 605 >AB 
595 IF tt$=c$ OR tt#=d$ OR tt$=es O >EN 
R'tts=fs OR tt#=g$ OR tt$=e1s OR tt 
$=g1$ THEN LOCATE x, y:PEN 6:PRINT a 
$:G0TO 620 


600 GOTO 665 >ZK 
605 PEN 6:LOCATE x,y:PRINT a$ >) 
610 xa=0:ya=0 >PB 
615 GOTO 395 >AF 
620 sc=sc-20:z=REMAIN(1) JUN 
625 CLS: >BD 
630 FOR 11=1 TO 500:NEXT:GO0T0 230 AZ 
635 ‘fin de partie TE 
640 PEN 7:LOCATE 5,1:PRINT"score="; >HV 
sc 

645 LOCATE 9,12:PRINT"FIN" VL 
650 IF sc>z2 THEN z2=sc >RR 
652 PEN 15:LOCATE 1,15:PRINT'MEILLE >UV 
UR SCORE"; z2 


655 FOR tt=1 TO 3000:NEXT tt:CLS:G0 >JH 
T0 210 

660 "controle lettre TC 
665 ee=ee+i >uC 
670 IF tt$=i$(ee) THEN sc=sc+10 ELS >WR 
E ee=ee-1:G0T0 705 

675 ’ecriture lettre ecran >TJ 
680 PEN 8:LOCATE 10+INT((10-b(j))/2 >WA 
)tee,25:PRINT tt$ 

685 ’controle derniere lettre mot >TK 
690 IF ee=b(j) THEN LOCATE x,y:PEN )EV 
6:PRINT a$:z1=REMAIN(1):sc=sctz1:PE 

N 7:LOCATE 5,1:PRINT"score=";sc:F0R 
cc=i TO 2000:NEXT cc:G0T0 230 

695 GOTO 605 >AH 
700 ‘lettre fausse a replacer >BH 
705 X1=INTCCRND#18)+1):Y1=INT((RND# >JY 
21)+1) 

710 IF y1=1 THEN GOTO 705 >RK 

715 LOCATE X1,Y1:v$=COPYCHRS(#0):1F >AW 
v$O" " THEN GOTO 705 

720 PEN 2:PRINT tt$:G0T0 605 D A 
725 'ausique TE 

730 READ a,b:1F a=-1 THEN RESTORE:G >JG 
OTO 730 


735 SOUND 17,a,50%b, 10,1 >RR 
740 SOUND 10,ax2,504b, 10,1 >TB 
745 ON SQ(1) GOSUB 730:RETURN )IL 
750 SYHBOL AFTER 32 > 
755 ‘lettres accentuees >TH 


760 SYMBOL 33,32, 16,120, 12,124, 204, FN 
114,0 
765 SYMBOL 35,48, 72, 120, 12, 124,204, FF 





A ct 36,16,8,60,102,126,96,60 >CD 
7 SYHBOL 37,8,16,60,102,126,86,60 >DB 
+ SYHBOL 38,24,36,60,102,126,96,6 >DR 
= SYHBOL 40,40,0,60,102,126,96,60 >CT 
SYHBOL 41,24,36,56,24,24,24,60, CE 
" SinBoL 95,40,0,56,24,24,24,60,0 >BA 


800 SYMBOL 163,24,36,60, 102, 102, 102 >FL 
,60.0 

dus oinsui 123,24,36,0,102,102,102, >EM 
62,0 

810 SYHBOL 124,32, 24,102, 102, 102,10 >GR 
2,62,0 

815 SYHBOL 125,0,0,60, 102,96, 102,60 >DX 
,16 

820 ‘’obstacles:personnages )TA 
825 SYMBOL 207,0,0,0,0,28,62,8,16  >ZV 
830 SYMBOL 229,8, 106,26, 12,40,26,12 >CQ 
0 

’ 

835 SYMBOL 231,144,112,33,95,126, 12 >JA 
6,85, 164 

840 SYMBOL 248,24,24,6,28,42,12,20, >CC 
36 

845 SYMBOL 249,0,0,8,62,255,127,126 >DX 
60 

, 

850 SYMBOL 250,0,0,0,0,36,120,92,36 >BB 

855 SYMBOL 251,9, 14,132,250, 126,126 >HB 


170,37 

660 SYHBOL 252,0,0,0,0,36,30,58,36 )AA 
865 RETURN YAE 
870 'ausique >TF 


875 DATA 142,1,159,1.5,190,1,190,1, >TD 
239,1,213,1,239,1,213,1,142,1,159,1 
.5,190,1,190,1,159,1,142,1,142,1,15 
9,1.5,190,1,190,1,239,1,213,1,239,1 
,213,1,190,1,239,1.5,142,1,142,1,15 
9,1,239,2,0,4 

880 DATA 159,0.5, 142,0. 25, 159, 0.5, 1 
78,0.5,190,.5,179,.5,159,1,213,.5,1 
90,.5,179,1,190,.5,179,.5,159, 1,159 
,.5,142,.25,159,.5,179,.5,190,.5, 17 
9,.5,159,1,213,1,159,1,190,1,213,1, 
239,1,0,4 

885 DATA 239,1,213,1,190,1,239, 1,23 HR 
9,1,213,1,190,1,239,1,190,1,179,1,1 
59, 2, 190, 1,179, 1,159, 2,159, .5, 142, . 


V 


HF 





5,159,.5,179,.5,190,1,239,1,159,.5, 
142,.5,159,.5,179,.5, 190, 1, 239, 1, 23 
9,1,319,1,239, 2,230, 1,319,1,230, 1,0 

4 

, 

890 DATA 239,.5,239,.25, 239, 1,319,1 )TE 
,190,.5,190, .25, 190, 1,239, 1,239, .5, 
190,.25,159,1,159,.5,179,.5,190,.5, 
213,2,213,.5,190,.25,179,1,179, 1,19 
0,.25,213,.5,190, 1,239, 1,239, .5, 190 
,.25,213,1,319,1,253,.5,213, . 25, 239 
,1,213,.5,190,.25,179,1,179,.5,142, 

.25 
895 DATA 159,.25,179,.5,190,1,190,. >PG 
5,159,.25,179, .5, 190, . 25,213, 1,319, 
.5,179,.25,190,.5,213,.5,230,1,0,4 
900 DATA 95,.5,106,.5,119,.5,142,3, 
95,.5,106,.5,119,.5,142,.5,159,.5, 1 
59,1,95,.5,106,.5,119,.5,142, .75, 14 
2,.25,179,1,142,.5,119,.5,119,.5, 12 
7,.5,127,.5,119,.5,106,.5,127,.5, 14 
2,.5,159,.5,158,1,190,.5,159, .5, 142 
1 

L 

905 DATA 190,.5,213,.5,190,1,142,.2 >JJ 
5,159, . 75, 142, .25, 159, . 75,179, .5, 19 
0,.5,190,1,190,.5,213,.5,239, .5, 239 
,1,284,.25,239, . 75,230, .25, 190, .5,2 
13,.25,239,.5,239,.5,253, 1, 239, 2, 15 
9,.5,159,.5,239, 1,190, 2,213, .5,190, 
.5,179,.5,179,.5,159,.5,150,.5, 190, 
1,190, .5 

910 DATA 213,.5,239,.5,239,1,284,.2 DCA 
5,239, . 75,239, .25, 190, .5,213, .25, 23 
9,.5,239,.5,253, 1,239, 2,0, 4 
915 DATA 190,1,190,.75,179,.25,159, JF 
.5,190,.5,190,1,213,.5,239,.5,213, . 
25,190, .75,190,.5,213,.5,230, .25, 28 
4,.75,284,.5,284,.5,319, 3,319, 1, 239 
,1,190,1,159, .25, 190, . 75, 159, 1, 142, 
1.5,159,.5,190,1,213,.5,239, .5, 213, 
3,190, 1,190, .75,179,.25, 159, .5, 190, 
.5,190,1 
920 DATA 213,.5,239,.5,213,.25,190, DHH 
.75,190,.5,213,.5,239,.5, 284, .5, 284 
,.5,284,.5,319,3,319,1, 239, 1,190, 1, 
142,.25,150,.75,190,.5,230,.5,213, . 
25,190, .75,190,.5,213,.5,230, 1,284, 
.5,319, .5,239, 3,0, 4 
925 DATA 319,1,239, 1,190, 2, 190, 1,19 >YA 
0,1,190,2,213,1, 190, 1,213, 1, 239, 1,2 
39,2, 319, 1,239, 1,190, 2, 239, 1, 190, 1, 
159,2, 179,1,190, 1,213, 2,213, 2, 159, 1 
,179,1,190, 2,190, 1,213, 1,239, 2, 213, 


V 


HT 


20 





1,190,1,159,1,179,3,179, 2, 284, 1, 284 
,1,319,2,253,1,239,1.5, 213, 2, 100, 1, 
213,1 

930 DATA 239,2, 239, 2,0, 4 >QR 
935 DATA 190,1,159,1,159,2,179,1,14 MK 
2,1,142,2,127,1,127,1,142,1,127,1,1 
19,1,106,1,95, 2,190, 1,159, 1, 159,2, 1 
79,1,142,1,142,2,127,1,127,1,142, 1, 
127,1,119,1,119,1,119,2,95, 2, 119, 1, 
159,2,179,1,142,1,142, 2,159, 1,127,1 
,127,1.5,142,.5,150,1,119,1, 119, 2,0 

4 

L 

940 DATA 159,.5,190,.75,179,.25, 159 >HR 
,1,159,1.5,159,.5,142,.75,127,.25,1 
19,1,119,1.5,159,.5, 190, . 75,179, .25 
,159,1,159, 1,159, 1,142, .75,150, .25, 
179,1,179,2,190,1,159, 1,239, 1,190, 1 
,213,1,179, 2,239, 1,239, 2,0, 4 

945 DATA 190,.5,179,.5,159,.5,159,. DFY 
25,159,.25,142,.5,127,.5,119,1,127, 
.5,142,.5,159,.5, 159, .25, 159, .25, 15 
9,.5,142,.5,127,1,142,.5,150,.5, 179 
,5,179,.25,179,.25,179, .5,159,.5,1 
42,1,159,.5,179,.5,190,.5,159,.5,0, 
.5,169,.5,159,.5,0,.5,190,.5, 179, .5 
,159,.5 

950 DATA 159,.25,159,.25, 142, .5, 127 
,5,119,1,127,.5,142,.5,150,.5, 159, 
.25,159,.25,159,.5, 142,.5,127, 1, 142 
,5,159,.5,179,.5,179,.25,179, .25,1 
78,.5,150,.5,142,1,127,.5,159,.5, 11 
9,.5,0,.5,127,.5,0,.5,119,.5,190,.5 
,201,.5,190,.5, 142,1, 190, 1, 201, 1, 19 
0,1 

955 DATA 159,.5,169,.5,179,.5,179,. TK 
25,179,.25,179,.5,179,.5, 190, .5, 179 
,5,127,1,179,1,190,1,179,1,142,.5, 
150,.5,159,.5,159, .25, 159, .25,159,. 
5,159,.5,142,.5,127,.5,119,1,127,1, 
106,1,119,1,127,.5,159,.5,142,.5,13 
5,.5,127,.5,150,.5,142,.5,135, .5, 12 
7,1 

960 DATA 142,1,119,1,127,1,142,.5,1 
59,.5,169,.5,142,.5,158,.5,190, .5,2 
13,.5,239,.5,159, 1, 190, 1,213, 1,239, 
1,253,.5,159,.5,179,.5, 179, .25, 179, 
.25,178,.5,179,.5,190,.5,213, .5, 142 
,1.5,178,.5,190,.5,213, .5,142,.5,13 
5,.5,127,2,0,4 

965 DATA 159,.5,150,.5,239,.5,239,. AH 
5,142,.5,159,.5,179,.5, 190, .5,213,. 
5,239, .5 


V 


v 


TR 


970 DATA 239,.5,158, .25, 159, . 25, 179 
,.5,190,.5,179,.5,190,.5,213,.5, 239 
,1,239,.5,190,.5,159, .25, 142, .25, 15 
9,1,179,.5,190,.5,159, .25, 142, .25,1 
59,1,239,.5,159,.25, 159, .25, 179, .5, 
190,.5,179,.5,190,.5,213,.5,239, 1,2 
39,.5,190,.5,159,.25, 142, .25, 150,1, 
179,.5 

975 DATA 190,.5,213,.25, 190, .25,213 
,°5,239,1.5,0,4 

980 DATA 119,1,119,.5,127,.25,119,. 
25,106,.25,119,.25,127,.25,142, .25, 
119,.5,119,.25,142,.25,119,1,119,.5 
,127,.25,119, .25,142, .25,159, .25, 19 
0,.25,179,.25,159, 2,158, .25, 179, .25 
,190,.25,213,.25,190, .25, 179, .25, 15 
9,.25,142,.25,159,1,159,1,159,.25, 1 
42,.25 

985 DATA 127,.25,142,.25,150, .25, 17 
9,.25,190,.25,213,.25,190,.25,213, . 
25,230,.5,239,.5,239,.25,213, .25, 19 
0,.5,179,.5,213, 1,159, 2, 159,2, 159, . 
5,0,.5,106,1,106,.75,119,.25, 127, .2 
5,142,.25,127,.25,119,.25,106,. 25,1 
19,.25,127,.5,127,.25,119,.25,127,. 
25,159, .25 

990 DATA 119,.25,127,.25, 158, .25, 17 
9,.25,179,1,179,.5,179,.5,179,.5, 14 
2,.5,119,.25,142,.25,127,.25, 159, .2 
5,179,.5,179,.25,179,.25, 179, .5, 142 
,5,127,.25,159,.25,142,.25, 170, .25 
,213,.5,213,.25,230, 25,213, 1,213, 
5,213,.25,213,.25,213,.5,179,.5, 142 
2 














SZ 
AS 


té 


V Rennes. 


)CJ 


Pour les étrangers le règlement se fait soit : 





995 DATA 179,.25,159,.25, 190, .25, 21 
3,.5,213,.25,239,.25,213,1,213,.5,2 
13,.25,239,.25,213,.5,190,.25, 179, . 
25,159, 2,159, .25,179,.25, 190, . 25,21 
3,.25,230,.5,0,2.5, 134, 1,127, .25, 14 
2,.25,159,.25,179,.25,127,.25,119, . 
25,142,.25,159,.25,134,.5, 142, .25, 1 
59, .25 

1000 DATA 127,1,142,.25, 127, .25, 142 
25,159, .25,159,1,159, .25, 179, .25, 
190,.25,213,.25,190,1,190,1,0,.5, 12 
7,.25,119,.25,112,.5,112,.5,106,.5, 
106,.5,106,.5,106,.5,112,.5,106,.5, 
106,.5,106,.5,119,.25,135,.25, 106, . 
5,119,.25,127,.25,100,.25,119,.25, 1 
35,.25 

1005 DATA 150,.25,159,.25,179,.25, 1 
90,.5,190,1,190,2,190,.5,0,.5, 201,1 
.5,190,.5,213,.25,190,. 25,179, .5, 17 
9,1,159,.5,150,.5,179,.5,159, .5, 190 
,5,213,.25, 190, .25,213, .25, 239, . 25 
,239,.5,253,.5,253, 1,260, .25, 239, .2 
5,253,.25,239,.25,213,.25, 190, .25, 2 
13,.25 

1010 DATA 239,.25,213,.25, 239, . 25, 2 
53,.25,301,.25, 260, .25, 301, .25, 319, 
.5,319,.5,179,.5,179,1,179, 1,179, .2 
5,159, .25, 179, .25, 201, . 25, 190, 1, 201 
,1179,.25, 190, .25, 179, .25, 226, .25, 
213,1,226,1,213,.25,213, 25,201, .25 
,213,.25,179,.25, 190, 25,213, .25, 23 
9,.25 

1015 DATA 239,1,230,.5,0,.5,0,4, -1, 
1 


>CF 


)BC 


>AP 


ABONNEMENT 


11 numéros sesssesosesoocnsonsoonvosscscssscssosssscssssses 2 10 F 
(prix applicable au ler mars 1989) 








1020 CLS:INK 1,26:1INK 2,24 

1025 LOCATE 9,1:PEN 1:PRINT"Dans le 
pré voisin de la foré&t,":PRINT"le 
petit chaperon jaune ";:PEN 2:PRINT 
CHR$(248);:PEN 1:PRINT" fait la *: 
PRINT"cueillette des lettres pour % 
crire des ":PRINT"aots ." 

1030 PRINT:PRINT" Aidez le ! ra 
sasser celles-ci dans":PRINT"le bon 
ordre, le plus rapidement possi-":P 
RINT"-ble en %vitant les arbustes c 
arnivores" 

1035 PRINT"les champignons vénäneux 
,les sares pro-":PRINT"-fondes où i 
l peut se noyer, "; 

1040 PRINT" un chien ":PRINT" attei 
nt de la rage -attention aux aor-": 
PRINT"-sures- et le loup qui aimera 
it bien le":PRINT"croquer." 

1045 PRINT" La difficults du jeu va 
en augmentant." 

1050 PRINT" Aux champignons et arbu 
stes du dXbut ":PRINT" s'ajoutent | 
es mares dangereuses puis, ":PRINT" 
le chien salade et enfin le s%chant 
":PRINT"  LOOOUUUP.* 

1055 PRINT"Vous avez un capital de 
100 POINTS pour" 

1060 PRINT"coasencer.":PRINT 

1065 PRINT" BONNE CHANCE ,et essaye 
z donc de faire":PRINT" le seilleur 
SCORE * 

1070 WHILE rr$c"":rr$=INKEYS: VEND 
1075 RETURN 
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ATTENTION ! LES ABONNEMENTS NE SONT PAS RETROACTIFS. 
par eurochèque {numéro de carte inscrit au dos) - par mandat international - par virement CCP 794 17 


>TB 


>LG 


>CF 
>FGe 





RENOUILLE 


ce 





Dans la peau d'une grenouille aussi grosse qu'un 
bœuf, vous devez attrapper des mouches (15 au 
maximum) à l'aide de votre langue. Vous avez 
2 minutes pour avaler le maximum d'insectes 
en un minimum de coup de langue. 


L: e premier listing ne sera utilisé 

qu'une seule fois : c'est lui que vous 
lancerez en premier afin de créer les 
images du jeu. Par la suite, il suffira de 
lancer le deuxième programme. 

Il est possible de jouer avec le joys- 
tick (haut, bas) ou bien avec les touches 
E et C. Il suffit de maintenir la direction 
pour emmagasiner de la puissance et 


CREEDES 


10 INK 0,0: INK 1,9: INK 2,18:INK 3,1 RH 
5:BORDER 0:PEN 1 

20 SYMBOL AFTER 32:SYHBOL 91,128, 12 >PU 
8,128, 128, 128, 128, 128, 128:SYHBOL 93 
LTÉE 

30 SYMBOL 47,3,6, 12, 24, 48,96, 192, 12 )CU 
8 

40 SYMBOL 92, 128, 192,96, 48,24, 12,6, )CV 
3 

50 SYMBOL 60, 3,6, 12, 24, 48,96, 192, 25 >CR 
5 

60 SYMBOL 62, 192,96, 48,24, 12,6, 3,25 )CV 
5 

70 SYHBOL 95,0,0,0,0,0,0,0,255 AL 
80 SYMBOL 81,0,24, 102, 153, 153, 102,2 >DP 
4,0 


80 SYMBOL 94,255,0,0,0,0,0,0,0 DuH 
100 HODE 1 >GK 
110 LOCATE 14,13:PRINT " >DK 


120 LOCATE 14,14:PRINT " / (Qç  >DH 
L) 


130 LOCATE 14,15:PRINT * /  ’,> CV 





lancer ainsi sa langue le plus loin possi- 
ble en relachant la touche. 

Pour améliorer la présentation, il est 
conseillé d'ajouter un CLEAR INPUT au 
début de la ligne 350 du second listing. 
Les possesseurs de claviers QWERTY 


peuvent remplacer les "ç" par des "\" et 
les "ton par des Hi 





140 LOCATE 14,16:PRINT " /  )/ DCV 
* 

150 LOCATE 14,17:PRINT "/ __ / DEU 
" 

160 LOCATE 14,18:PRINT **/  çç DJ 
" 

170 LOCATE 14,19:PRINT *ç ,) çç DDU 
" 

180 LOCATE 14,20:PRINT " ç_ /ç ç DGE 
" 

190 LOCATE 14,21:PRINT * / / ç_ DEP 
" 

LOCATE 14,22:PRINT " / / >CF 
L] 

210 LOCATE 14,23: PRINT “ / €__DDQ 

Li 

220 LOCATE 14,24:PRINT " *(*  ç_ CG 

L] 

230 LOCATE 14,25:PRINT "/***“ç>)> DHK 

LM 

nn MOVE 320,4:FILL 2 e> >PH 

250 LOCATE 1,18 CELSD x 

260 PRINT * * DRE 
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270 PRINT" / (Qc * 
280 PRINT® / *,> * 
290 PRINT "/ __)/ 
300 PRINT "//_ç/ * 
310 PRINT **// /" 
320 PRINT "ç ("“"ç_ " 


330 PRINT "/****622> ç ":MOVE 6316 
,4:FILL 2 


340 LOCATE 27,9 

350 LOCATE 27,10:PRINT " 
" 

360 LOCATE 27,11:PRINT " / (Qc 
L] 

370 LOCATE 27,12:PRINT " / 1, 
LI 

380 LOCATE 27,13:PRINT " / ) / 
[1 

390 LOCATE 27,14:PRINT "/_ / 
" 

400 LOCATE 27,15:PRINT "* ç S$° 


410 LOCATE 27,16:PRINT *c €, ç 
" 

420 LOCATE 27,17: PRINT " ç (/ç ç_ 
LI 

430 LOCATE 27,18:PRINT " ç cc. 


/ " 
440 LOCATE 27,19:PRINT " ç ç 


450 LOCATE 27,20:PRINT " 


Os 


460 LOCATE 27,21:PRINT "  / / 


470 LOCATE 27,22:PRINT " / / 


480 LOCATE 27,23:PRINT * 


490 LOCATE 27,24:PRINT " / ç_ 
" 

500 LOCATE 27,25:PRINT "/****ç>>)) 

ç " 

510 MOVE 33#16,4:FILL 2 

520 HOVE 28#16,4:FILL 3:MOVE 37#16, 

4:FILL 3 

530 MOVE 15#16,4:FILL 3:MOVE 23416, 

4:FILL 3 

540 MOVE 6,4:FILL 3:MOVE 11#16,4:FI 

LL 3 

550 DIM a(199) :3=0 

560 FOR i=0 TO 198 STEP 8 

570 FOR g=0 TO 7:a(i+g)=&C000+(" #5 

)+(g#2048) 


IC 


>Un 
>ND 


)YC 
)EK 


>DQ 


)CC 


CC 


>DY 


)>FQ 








580 NEIT )EJ 
590 5=5+1 >FJ 
600 NET )EB 
605 5=tk4000 >PF 
610 FOR y=(9#8)-1 TO 199 )00 
620 FOR x=0 TO 25 )EA 
630 POKE s,PEEK(aly)+x) )RU 
640 3=3+1:NEXT:NEXT >®P 
641 LOCATE 1,1:PRINT HEX$(s) DL F2 
650 FOR y=(9#8)-1 TO 199 )QV 
660 FOR x=26 TO 51 >LN 
670 POKE s,PEEK(al(y)+x) )RY 
680 s=5+1:NEXT:NEXT >QU 
681 LOCATE 1,1:PRINT HEX$(s) )WD 
690 FOR y=(9#8)-1 TO 199 )0Z 
700 FOR x=52 TO 77 | >LQ 
710 POKE s,PEEK(a(y)tx) GC ART 
720 3=3+1:NEXT:NEXT ce, >QN 
730 PRINT HEX#(s) CCD du 
740 PRINT HEX$(3-k4000) >RZ 


750 SAVE "DESSIN",B, &4000, 42800 )YP 
770 PRINT "Mon travail est termine. QC 


780 PRINT "Je peux etre detruit."  DJT 


ss 


GRENOUILLE NUE 
10 MEMORY &3FFF:LOAD"dessin.bin" >FD 
20 GOSUB 380 >BD 
30 AFTER 6000 GOSUB 270 >Qh 


40 FOR i=0 TO n:x(i)=INT(RND#27)+13 >CK 
:y(1)=INT(RND#9)+10:LOCATE x(i),y(i 
):PEN 1:PRINT"#":NEXT 

50 IF J0Y(0)=1 OR INKEY(58)=0 THEN DEB 
CALL &A000,gre3:y1=5:kei=58: joi=1:G 
OSUB 150 

60 IF JOY(0)=2 OR INKEY(62)=0 THEN )FU 
CALL &A000, grel:y1=13:kei=62: joi=2: 
GOSUB 150 

70 IF J0Y(0)=4 OR INKEY(61)=0 THEN )EZ 
CALL &A000, gre2:y1=8:kei=61: joi=4:G 
OSUB 150 

80 1F stup=1 THEN stup=0:G0T0 280  >BD 
90 FOR i=0 T0 « >RD 
100 xd=INT(RND#3)-1:yd=INT(RND#3)-1 )ED 


110 LOCATE x(i),y(i):PRINT" * DiY 
120 IF x(i)+xd>13 AND x(i)+xd<40 AN DUD 
. D'yCi)+yd>1 AND y(i)+yd<(19 THEN x(i 








)=x({)+xd:y(1)=y(1)+yd ELSE GOTO 10 
0 
130 LOCATE x(i),y(1):PEN 9:PRINT"#" >JN 
:NEXT 
140 GOTO 50 >RG 
150 1=0:lev=lev+i >HH 
160 IF INKEY(kei)=0 OR J0Y(0)=jof T >BK 
HEN 1=1+1 ELSE GOTO 180 
170 IF 1-28 THEN GOTO 180 ELSE LOCA >QH 
TE 1,25:PEN 2:PAPER O:PRINT STRINGS 
(1,207); :G0T0 160 
180 FOR i=11 TO 11+1:LOCATE i,yl:PR DPY 
INT" _"+CHR$ (240) ; :SOUND 4,1250,1 
190 FOR x=0 TO « >ZkK 
200 IF yl=y(x)AND i=x(x) THEN GOSUB )FQ 
240 
210 NEXT:NEXT:LOCATE 11+1,y1:PRINT PU 
CHR$ (240) 
220 FOR i=12+] TO 11 STEP-1:LOCATE )RB 
1,yL:PRINT® "3; :SOUND 4, i45,1:NEXT 
230 PAPER O:LOCATE 1,25:PRINT STRIN >ZF 
G$(40, 128) ; :RETURN 
240 eu=euti:LOCATE x(x),y(x):PEN 1: DYT 
PRINT CHR$(238) ; : SOUND 1,400, 10,12, 

3 
9 
250 x(x)=INT(RND#27)+13:y(x)=INT(RN DDL 
D9)+10:LOCATE x(x),y(x):PEN 1:PRIN 
T'a": 


260 RETURN >2D 
270 stup=1:RETURN >NP 
280 MODE 1:PAPER O:PEN 3 >RR 
290 PRINT"En 2 ainutes vous avez at )ZN 
trape..." 

300 PRINT eu;" souches." Dr, 


310 PRINT"Vous avez tire la langue )EX 
“slev;" fois." 

320 PRINT"Ce qui vous fait un score )BY 
de.......,." 


330 CALL &BB06 )LJ 
340 PRINT INT((eut20)-(lev+2.5));"  DNB 
points." 


350 PRINT"Vouliez-vous recommencer ? )QC 
" 

360 IF INKEY(34)=0 THEN ERASE x,y:G DHD 
OTO 20 

370 IF INKEY(46)=0 THEN END ELSE GO )GX 
TO 360 

380 SYHBOL 240,0,0,0,0,8,24,112,224 DAA 


390 SYMBOL 241,2,37,96,31,2,1,4,77 DAQ 
400 SYMBOL 242,5,43,34,84,74,23,64, )CD 
53 
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410 MODE 1:INK 0,0:INK 1,9:INK 2,18 DVA 
:INK 3,15:BORDER 1 

420 GOSUB 580 )HJ 
430 lev=0:eu=0:stup=0 >RR 
440 grei=k4000:gre2=&4D1A: gre3=&5A3 )DC 
4 

450 CALL &A000, grei >HH 
460 PAPER 3:PEN 0:FOR 1:19 TO 25:L0 >WD 
CATE 1,i:PRINT STRINGS (12,241) ; :NEX 

T 

470 PEN 1:PAPER 2:LOCATE 13,23:PRIN >GX 
T STRINGS (28,242) :LOCATE 13,24:PRIN 

T STRINGS (28,242) :LOCATE 13,25:PRIN 

T STRINGS (28,242); 

480 PAPER 0 Duc 
490 LOCATE 1,1:PEN 2:INPUT"Nosbre d DYT 
e souches": 

500 IF a>15 OR n(2 THEN GOTO 490 EL >YF 
SE a=a-1:DIM x(m),y(a) 

510 LOCATE 1,1:PRINT STRING$ (40,128 DFE 
) 

520 RESTORE 570 as 
530 FOR 1=4A000 TO &AO!C LS )0B 
540 READ a:POKE ia KA >xG 
550 NEIT te DEF 
560 RETURN Sr, 32% 
570 DATA &dd,kSe, 40, kdd,&56,81,421, >NU 
&a0,&c0, 46,880, Les, Le, kia,&ia,k77,k 
23,413, &4d, 420,49, &ei, kod, 426, kbc, k 
10,410, &c9, 40 


580 HOVE 0,0:RESTORE 650 TN 
590 FOR d=0 TO 8 STEP 2 >PD 
600 READ a )JB 
610 IF a=254 THEN RESTORE G50:NEIT )DBT 
620 IF d=10 THEN GOTO 640 >RJ 


630 IF a=255 THEN READ a,b:MOVE (a >KY 
16)+d, (b#16)+d:G0T0 600 ELSE READ b 
:DRAW (a#16)+d, (b#16)+d:G0T0 600 

640 CALL &BBO6:LOCATE 1,25:PRINT ST JV 
RING$(19,CHR$ (10) ) :LOCATE 5,10:PRIN 

T “par Ceulesans Olivier":CALL &BBO 
G:MHODE 1:RETURN 

650 DATA 255,4,5,2,5,1,1,3,1,3.5,3, >DLK 
2.5,3,255,4,1,5,5,7,5,6.5,3,4.5,3,6 
,1,255,9,1,7,1,8,5,10,5,255,7.5,3,8 
.5,3,255,10,1,11,5,12,1,13,5,255,13 
11,14,5,16,5,15,1,13,1,255,17,5,16, 
1,18,1,19,5,255,19,1,19.75,4,255,19 
.75,4.5,20,5 

660 DATA 255,21,5,20,1,22,1,255,24, >VJ 
5,23,1,25,1,255,29,5,27,5,26,1,28,1 
,255,26.5,3,27.5,3,254m 


Nanureva 








AO HRRREEERHEÉREÉRES )LA 
20 *# MANUREVA * LB 
30 ‘’#  Husique +: >LC 
40 '*# arrangee à: LD 
5Ù ‘+ par + LE 
60 '# D.WILLE + LF 
T0 'HRHHAHANAELUERS Lu 
80 ? \ \ th} LH 
go \ \ > 
100 ? INITIALISATIONS ’ À >RB 
110 ‘ ft À RC 
120 ‘ >RD 
13ù HODE 2 \ >HD 
140 PRINT'MANUREVA" >Qh 
150 PRINT'=====222" NX 
160 PRINT >NK 
170 FRINT FA 
180 PRINT'Acconpagnement musical ar >QK 
range par D.WILLE pour AMSTRAD CPC. 

190 FRINT FC 
200 PRINT NE 
210 FEINT ;NF 
220 PRINT >NG 
230 FRINT'"Check-up controie. :" FL 
240 PRINT'------------------- Li LE) 
250 st=333733 JG 
260 s(1)=53986:5(21=63711:5(3)=8122 >BF 
a:st4)=//210:515)=5/602 

210 FÜR a=1 TO 5:ts2=ts2+s(a):NEXT: >DG 
IF st(ts2 THEN PRINT'Erreur dans | 

es sommes de controies.":END 

280 PRINT'"Soases de controies Uk." )LX 
290 FOR a=i TO 5 VE 
300 READ a$:{F a$="fin" THEN 310 EL >NC 
SE soase=sonme+VAL(a$):G0TO 300 

310 IF INT(s(a))C>INT(somme) THEN P )CL 
RINT'Erreur dans le groupe" ;a:END 

320 PRINT'GROUPE":a;"0Kk." >VG 
330 sonne=0 BG 
340 NEXT )EC 
350 ENV 1,15,-1,15 ?LA 
360 ENV 2,13,-1,6 >DH 
370 ENV 3,15,-1,1:ENT -1,2,2,5,4,-2 HN 
5421259 

380 ENT -2,1,1,5,1,-1,10 >0B 
390 ENT -3,0,0,0 >WD 
400 ON ERROR GOTO 1100 >QU 
410 >RF 
420 ? >RG 
430 ' DATA DE LA MUSIQUE >RH 





460 * GROUPE 1 
470 

480 DATA 0,9,0,9,3000,0,0.5,1, 3000, 
0,0.5,1,3000,0,0.5, 1, 3000, 0, 1, 2, 300 
0,0,0.5,3,3000,0, 1,3, 3000, 0, 1, 4,300 
0,0,1,4,3000,0,0.5,4, 3000,0,0.5, 4,3 
000,0,1,5 

490 DATA 1000,568, 7,95, 1,95, 1, 106, 1 
,106,1,119,1,119,1,106,2,106,2,95,1 
,95,1,142,1,142,1,2000,1 

500 DATA 1000,568,6, 2000, 1, 2000, 1 
510 DATA 0,1,0,1,142,1,119,1,127,1, 
106,1,95,1,119,1,89,1,106,1,95,1,41 
9,1,106,1,127,1,119,1,142,1 

520 DATA 1000, 716,4 

530 DATA 142,1,179,1,119,1,142,1,10 
6,1,127,1,95,1,119,1 

540 DATA 1000, 568, 3, 2000, 1 


6,1,127,1,95,1,119,1 

560 DATA 1000,426,6 

570 DATA fin 

580 

590 ‘ GROUPE 2 

600 ? 

610 DATA 179,1,142,1,142,1,119,1,10 
6,1,127,1,95,1,119,1,89,1,106,1,119 
1,85,1,106,1,127,1,119,1,142,1,200 
0,1,2000,1 

620 DATA 1000,426,4 

630 DATA 89,1,106,1,106,1,142,1,142 
,1:179,1,179,1,213,1,1000, 426, 1,89, 
1,106,1,106,1,142,1,142,1,179,1,179 
,1,213,1,2000,1,2000,1,2000,1 

640 DATA 1000,568, 4 

650 DATA 95,1,119,1,119,1,142,1,142 
1,190, 1, 190, 1,239, 1, 1000,568,3,05, 
1,119,1,119,1,142,1,142,1,190, 1,190 
,1,239,1,2000,1 

660 DATA 1000,379,3,95,1,127,1,127, 
1,150,1,150,1,190,1,1000,379, 1,190, 
1,253,1,1000, 758,2,95,1,127,1,127,1 
.150, 1,150, 1, 190, 1,2000, 1, 1000, 758, 
1,190,1,253,1 

670 DATA 0,4,0,4,1000,568, 1,2000,1, 
1000,568, 1,2000, 1,95,2,142,2,1000,5 
68,1,2000,0.5,2000,0.5,1000,568, 2,2 
89,1,119,1,80,2,95,2,1000,478, 1, 100 
0,478,1,71,1,71,1,1000,638, 1,80, 1,8 
0,1,1000,568,1,71,1,71,1,1000, 478,1 





550 DATA 190,1,142,1,119,1,142,1,10 


Il n'est pas besoin de commentaires : 


'RJ 


>RK 
TA 
>TB 
2YR 


HF 





tapez le programme, sauvez-le et écoutez. 


,80,2,95,2,1000,478, 1,1000,638, 1,10 


00,568, 1 

680 DATA fin >DG 
690 >TF 
700 ’ GROUPE 3 >RH 
710 ? )RJ 
720 DATA 1000,426,1,1000,426,1,213, >MV 


1,106,1,213,1,95,1,1000,568, 1, 1000, 
506,1,213,1,106,1,213,1,119,1,142,4 
213,4, 1000, 426,1, 1000, 426, 1,1000,5 
68,1,1000,506, 1 

730 DATA 1000,851,1,1000, 426, 1,1000 DBE 
, 758,1,1000,379,1,0,1,0,1,106,1,106 
1,95,1,95,1,106,1,106,1,119,1,119, 
1,142,3, 142,3, 1000, 716, 1, 1000, 358,1 
.1000,638, 1, 1000, 319, 1,80, 2,95, 2 
740 DATA 1000,478,1,1000,478,1,71,1 
. 11,1,1000,638, 1,80, 1,80, 1, 1000, 568 
.1,71,1,71,1,1000,478,1,80,2,95,2,1 
000,478, 1,1000,638, 1, 1000, 568, 1 

750 DATA 1000,426,1,1000,426,1,213, 
1,106,1,213,1,95,1,1000,568, 1, 1000, 
506,1,213,1,106,1,213,1,119,1,142,4 
,213,4, 1000, 426, 1, 1000, 426, 1, 1000,5 
68,1,1000,506,1,0,2,0,2 

760 DATA 1000,851,1,1000, 426, 1, 1000 
.758,1,1000,379,1,106,1,106,1,95,1, 
95,1,106,1,106,1,119,1,119,1,142,3, 
142,3,1000, 716,1, 1000, 358, 1, 1000, 56 
8,0.5,2000,0.5, 1000, 284,0. 333333, 20 
00,0.333333, 2000, 0. 33333, 142, 1,179, 
Î 

710 DATA 1000,638,2,0,2,0,2, 1000,63 
8,2,1000,638, 2, 1000,638, 2, 106, 1,106 
,1.106,1,106,1,106,2,106,2,106,1,10 
6,1,106,1,106,1 

780 DATA fin 

790 

800 ? GROUPE 4 

810 

820 DATA 1000,638,2,95,2,95,2,1000, 
638,2,95,1,95,1,95,1,95,1,1000,638, 
2,95,2,85,2,1000,638,2,80, 1,80, 1,71 
1,71,1 

830 DATA 1000,716,1,71,1,71,1,2000, 
1,71,1,71,1,2000,1,71,1,71,1,2000, 2 
,71,1,71,1,2000,1,71,1,71,1,2000,0. 
5,71,1,71,1,2000,0.5,71,2,71,2, 1000 
, 716,1 

840 DATA 1000,379,3,95,1,127,1,127, 
1,150,1,150, 1,180, 1,1000,379, 1,190, 
1,253, 1,1000, 758,3,95,1,127,1,127,1 


LA 


YB 





RER Se e. Vi RAR 
mn 
À ; 
,150,1,150,1,190,1,1000,758,1,190, 1 900 ? GROUPE 5 * # >RK | 960 DATA 1000,568,7,284,6,190,8,200 >CH 
,253,1 910 ! AT TA | 0,1 
850 DATA 1000,568,1,190,1,119,1,100 >CB | 920 DATA 1000,568,1,178,1,106,1,100 >CA | 970 DATA fin >DJ 
0,568,1,190,1,119,1,1000,568, 1,190, 0,568,1,179,1,106,1,1000,568, 1,179, | 980 ? >TH 
1,119,1,1000,568,1,190,1,119,1, 1000 1,106, 1,1000,568,1,179,1,106, 1, 1000 | 890 )TJ 
,568,1,190,1,119,1,1000,568, 1,190, 1 ,568,1,179,1,106,1,1000,568,1,179,1 | 1000 ’ ICI,0N JOUE LA MUSIQUE >XD 
,119,1,1000,568,1,190,1,119,1,1000, | ,106,1,1000,568, 1,179,1,106,1,1000, , 1010 ? >XE 
568,1,190,1,119,1 | 568,1,179,1,106,1 | 1020 ! >XF 
860 DATA 1000,568,1,179,1,119,1,100 >CH | 830 DATA 1000,758,4,0,1,0,1,142,1,1 DJF : 1030 READ s19:1F s1$="fin" THEN 103 >VX 
0,568,1,178,1,119,1,1000,568, 1,179, 19,1,127,1,106,1,95,1,119,1,89,1,10 | 0 ELSE s1=VAL(s19) 
1,119,1,1000,568,1,179,1,119, 1, 1000 6,1,95,1,119,1,106,1,127,1,119,1,14 1040 IF 31=1000 THEN READ 5,t:SOUND EU 
,568,1,190,1,119,1,1000,568, 1,190, 1 2,1, 2000, 2, 2000, 1, 2000, 1 1,5,t420,15,1,1:G0T0 1030 
,118,1,1000,568,1,190,1,119,1,1000, | 840 DATA 1000,758,4,0,1,0,1,190,1,1 DMV 1050 IF s1=2000 THEN READ t:SOUND { >DH 
568,1,190,1,119,1 50,1,142,1,190,1,127,1,150,1,95,1,1 ,0,t#20,15,3,0,1:G0T0 1030 
870 DATA 1000,506,1,169,1,100,1,100 >BH | 27,1,127,1,150,1,142,1,190,1,150, 1, 1060 IF 31=3000 THEN READ 5,t,b:S0U >KQ 
0,506,1,169,1,100,1,1000,506, 1,169, | 190,1,2000, 1, 2000, 2, 2000, 1 ND 1,3,t#20,15,3,1,b:G0T0 1030 


1,100, 1,1000,506, 1,169, 1,100, 1, 1000 850 DATA 1000, 758 





,4,0,1,0,1,142,1,1 DWE 1070 READ t1,52,t2:1F s1=0 OR 52=0 >LN 


,506,1,169,1,100,1,1000,506, 1, 169,1 19,1,127,1,106,1,95,1,119,1,89,1,10 | THEN SOUND 6,0,t1#20,0:G0T0 1030 
,100,1,1000,506,1,169,1,100,1,1000, 6,1,95,1,119,1,106,1,127,1,119,1,14 1080 SOUND 2,s1,t1420,15,2,2:SOUND DL 
506,1,169,1,100, 1 2,1,2000,0.5,2000,0.5,2000,0.5, 2000 | 4,92/2,t2#20,13,2,3 

880 DATA fin DJ | ,0.5,2000,0.5,2000,0.5,2000,0.5,200 | 1090 GOTO 1030 >HB 
890 TH | 0,0.5 1100 RESTORE 480:RESUHE 1030 UN em 


OFFRE EXCEPTIONNELLE : 


4 CASSETTES POUR 100 F !* 


Une cassette comprend les jeux, éducatifs ou utilitaires qui ont été publiés dans le numéro CPC correspondant. 





3 : Char d'assaut - Consommation de carburant — Fonction circle 
4 : Redef'car - Carré magique - Lexique anglais/français - Maze 


22 : Tournoi de fléchettes - Emulateur minitel - Technique des mas- 
ques - Recherche documentaire — Anti-erreurs - Histoire. 


5 : Cherry Paint - Morpions - Moulinot — Jeu de la Vie - Utilitaires de re- | 23 : Anti-erreurs - CAO 3D - 30 snakes - Photo-sprite - Relief - Moniteur. 


copie d'écran - Machpoke 


24: CAO 3D- Anti-erreurs - 1000 Bornes - Justification - Twenty 


7 : Cherry Paint — Discut — Conjugaison — Calcul - Colditz - Double hauteur | Copy - Trames et collages - Graphofrance - Machines. 


Référence croisée des variables basic 
8 : Cherry Paint - Tokext - Numérologie - Discothèque 
9 : Cherry Paint - Creedata - Serpent Madness 


25 : CAO 3D - Amsrythm - Trois dés - Générateur de menus - Symé- 
trie - Générateur de sprites (1) - Penetror. 
26: CAO 3D - Anti-erreurs - Catalogue - Conjugue - Tchernmis- 


10 : Cherry Paint - Catalogue Disk Printer - Analyse - Mundial 86 - Arbre land - Fenêtres symétriques - Graphiques. 


généalogique. 

11 : Ciel — Cherry Paint - Casse-tête de l'âne - Medor - Multi fichier. 
12 : Cherry Paint - Mozart -— Louisiane - Prot disc — Etik disk. 

15 : Cherry Paint - Gemaine - Moniteur de disquette — Boîte à rythmes. 
16 : Poker patience -— Attentif - Menu 2+. 

20 : Relief — Vision — Tri pour Bankmanager - Cat disk — Poker. 


27 : Création et animation de sprites — Anti-erreurs - CAO 3D - Champion- 
nat — Actions. 

28 : Anti-erreurs || - Routines machines - CAO 3D - Fichiers - Générateur 
de sprites — Catprog. 

29 : Les fichiers - Anti-erreurs 2 - Astronomie planétaire - CAO 
3D - Catprog - Pentominos. 


21 : Monnaie — Oxydo - Demo-tris - Stradamuse - Dis - Cas - Charge- 


ment des RSX Bankopen, Bankread, Bankwrité, Bankfind. 


Je commande lots(s) de 4 cassettes à 100 F le lot 
Numéros des cassettes souhaitées : 


Prénom : 











Si une des cassettes était épuisée, je désire à la place 
la cassette n° : 





Ville : 








Signature : 








Bon de commande à retourner accompagné d'un chèque à l'ordre des Editions SORACOM à l'adresse suivante : 
Editions SORACOM - La Haie de Pan - 35170 BRUZ. 


* Dans la limite des stocks disponibles. 
"Ne pouvant être tenu pour responsable de l'acheminement des paquets postaux, 
Recommandé : + 10 F) Délai minimum de livraison : 





nous conseillons à notre aimable clientèle ce choisir l'envoi en recommandé” 
15 jours à réception de la commande 





OPERATIONS A TROUS 


AO PHNHENNEENNNESNNNENHENNNENENNEES )LA 
#4 


20 '##+ OPETROUS >LB 
#44 
30 *### EXERCICES D'ARITHMETIQUE >LC 
CT 
40 '#s4 Jean REINGOT >LD 
TT 
50 ‘ss Octobre 1987 )LE 
CET 


(SIRET FETE TT E TETE ETES TETE ESS 
##ss 


TO ARRRRNNNNNNHHMAMRENHEREANEENELER )LG 
TT 

80 '#»+ INITIALISATIONS >LH 
#3 

00 'AHRSHANNEANNESNNESNNEELNENNANEER )L] 
Hit 

100 DIM no$(6),co$(6),op$(3) NU 
110 FOR i=1 TO 6:READ nof(i),co$(i) >GP 
:NEXT 

120 FOR 1=1 TO 3:READ op#li):NEXT  )AÏ 
130 apt="xAppuie sur une touchex":r >HP 


et=" Recoasence ":ef$=STRINGS (22, 32 

) 

140 SYHBOL 255,0,0,255 >PF 
150 ENV 1,1,15,5,5,-1,10 > 
160 INK 0,13:INK 1,0: INK 2,11:INK 3 DDF 
25 

L 

170 CLS:BORDER 14:PAPER 0:GOSUB 222 >QN 
0:GOSUB 2070 

180 r$=INKEY$:1F r$="" THEN 180 >)IN 
190 r=VAL(r$):1F r<i OR r>3 THEN PR >YL 
INT CHR$(7):G0T0 180 

200 CLS:PAPER 0:BORDER 8:G0SUB 2070 >PC 
:GOSUB 2290 

210 ch$=INKEYS:1F ch$="" THEN 210 >ZW 
220 ch=VAL(ch#):1F ch(O OR ch)6 THE >CH 








Jean REINGOT 


Ce programme tout simple va 
certainement aider les enfants 
du primaire car il traite de 
3 opérations fondamentales : 
l'addition, la soustraction et la 
multiplication. D'ailleurs, 
«Opération à trous» a été testé 
en milieu scolaire et a donné 
d'excellents résultats. 
Dans le listing, les X peuvent 
être obtenus en tapant 
CTRL + X. 


N PRINT CHR#(7):G0T0 210 

230 CLS:ex=0:sc=0:su=0 >TA 
240 GOSUB 2020:G0SUB 2070:G0SUB 208 >RA 
0:GOSUB 2090:G0SUB 2100:G0SUB 2110 

250 BORDER G6+r:6N r GOTO 290, 760,11 >DN 
70 

260 'HRRANMEENEENNENENNENNNENNEEES DR] 
Ha 


270 '### ADDITIONS > 
#1 
280 YHRHENESENNENNNNENMENENNEENNEEE TA 
Hi 
290 IF ch=0 THEN c=2:11:2 >TH 
300 IF ch=1 THEN c=3:1i=2 >TB 
310 IF ch=2 THEN c=4:11=2 >TE 
320 IF ch=3 THEN c=4:1i=3 >TH 
330 1F ch=4 THEN c=5:11=4 >TH 
340 IF ch=5 THEN c=6:1i=5 >TR 
350 IF ch=6 THEN c=7:11=6 >T4 
360 GOSUB 2380 >Q 
370 FOR 1=1 TO li:t=t+a(1):NEXT >ZU 
380 IF t<100 THEN t=0:G0T0 360 >D 
390 GOSUB 2400 >PK 
400 GOSUB 2410 >PC 


410 GOSUB 2440 

420 h=1i:G0SUB 2450 

430 GOSUB 2510 

440 FOR i=1 TO li:MID$(a$(i),h(i),1 
)=",":NEXT 

450 HID$(t$,ht+x,1)="." )QL 
460 PEN#2,1:FO0R i=1 TO 1i:LOCATE#I, >JH 
12-c,6+i:PRINT#1,a$(i):NEXT 

ATO YHRHENENBNSSNNNEEIENENNENEHNE )TB 
Ha 


480 ‘#44 
CEE] 

CTP T LEE PET ET PTT ET PET EEE PETEEONS 
CPE 

500 FOR 1=2 TO Li:LOCATE#1,9-c,6+1: > 
PRINT#1,"+":NEXT 

510 LOCATE#1,11-c-x,6+1:PRINT#1,STR >WH 
ING$(c+x+1,255) 

520 LOCATE#1,9-c,8+11:PRINT#1,"="  >BD 
530 LOCATES1,12-c-x,8+11:PRINT#1,t$ >DT 


AFFICHAGE QUESTION >TC 


SAO HHAENENNNNNNNNNNNNNNNNENNEES )OK 
CPE 

550 ‘##1 
#4 

S60 "HHHANMNNNNENNNNENNENHENNNNHEIE TB 
CP 

570 FOR i=1 TO 11:LOCATE#2,11-c,6+1 DAY 
2: INPUT#2, ar (i) :NEXT 

580 LOCATE#2,12-c-x,6+1:PRINT#2,STR >WU 
ING$(c+x+1,255) 

590 LOCATE#2, 11-c-x,8+11:INPUT#2,tr >EV 


ENTREE REPONSE TA 


600 FOR i=1 TO li:1F a(1)Oar(i) TH >HA 
EN 1850 


610 NEXT )EC 
620 IF trCt THEN 1850 >PV 
630 GOSUB 2580 YF 


640 VHHSNNNSNNEHENNENNNEIENNNEINIIA )TA 
##4 

650 ‘'##3 
#4 
(OOMETITETETETTTTTTTTTTEISETIITITIEUNN 
LE] 


670 LOCATE#4, 18,2:PRINT#4," 


AFFICHAGE SOLUTION >TB 


":PENE )GA 


2,3: :CLS#2:LOCATES2, 2, 2:PRINT#2, "SO 

LUTION":es=0:G0SUB 2090:1F r=3 THEN 
1900 

680 FOR i=i TO 1i:LOCATE#2,11-c,6+1 >UN 
:PRINT82,a(i) :NEXT:LOCATE#2, 11-c,6+ 














1:PRINT#2, STRING (c+1, 255) : LOCATE#2 
»11-c-x,7+1:PRINTS2, t 

690 LOCATEN2,8-c,7+1:PRINT#2,"=":1F )QC 
R=2 THEN 710 

700 FOR 1=2 TO li:LOCATE#2,9-c,6+1: >GV 
PRINT#2,"+":NEXT:GOTO 720 

710 LOCATES2,8-c,8:PRINT#2,"-" )YC 
720 GOTO 2850 >GB 
T30 PARHANEENEEENIENNEHNNNHNNEES )TA 
CCE 

740 ‘#44 
CEE 

LE'ELEE EEE TEE TEETEET CTTTET ETES TAN UN 
LES 


SOUSTRACT IONS TE 


760 IF ch=0 THEN c=2:h=2 >RH 
770 IF ch=1 THEN c=3:h=3 >RA 
780 1F ch=2 THEN c=4:h=3 >RQ 
780 IF ch=3 THEN c=4:h=4 >RU 
800 IF ch=4 THEN c=5:h=4 >RH 
810 IF ch=5 THEN c=5:h=5 >RQ 
820 IF ch=6 THEN c=6:h=6 >RV 
830 11:2:GO0SUB 2380 >NL 
840 IF a(1)(=a(2) THEN 830 )RZ 
850 t=a(1)-a(2) )TE 
860 GOSUB 2400 >08 
870 GOSUB 2410 >QD 
880 IF 1tC>c THEN 830 >M 
890 GOSUB 2450 >K 
900 GOSUB 2440 >0A 


910 IF CH=0 THEN FOR 1=1 TO 2:MID$( >LF 
ASC), H(1),1)=".":NEXT:GOTO 990 

920 IF ch<4 THEN FOR i=1 TO 2:MID$( >AQ 
a$(i),h(1),1)=%.":NEXT:HID$(t$, h(3) 
,1)="," 

830 1F ch=4 THEN FOR 1=1 TO 2:MID$( >KE 
a$(1),h(i),1)=".":NEXT:HID$(a$ (2), h 
(3),1)=%,.":HID8Ct$,h(4), 1220, 

940 IF ch=5 THEN FOR i=1 TO 2:MID$( >KG 
a$(1),h(1),1)=",%:MID$(a$(2),h(1+2) 
12". ":NEXT:NIDS(t$,h(5))="." 

850 IF ch=6 THEN FOR i=1 TO 2:HID$( >RD 
a$(1),h(i),1)=%,":MID$(a$(2),h(i+2) 
1)", ":MIDS(t$,h(1+4),1)=", ":NEIT 

(SRE LEE EEEEEETEETITET ET ET TETE NS S 
CET 

970 ‘ss 
LEE 

CURE EEE EEETETEETTTET ETES ES PTT NT 
CEE 

990 PEN#2,1:FOR i=1 TO 2:LOCATE#1,1 >HA 
2-c,6+i:PRINT#1,a$(i) :NEXT 

1000 LOCATE#1,8-c,8:PRINT#1,"-" > 


AFFICHAGE QUESTION >TG 








1010 LOCATE#1,9-c,9:PRINT#1, STRINGS >ND 
(c+3,255) 

1020 LOCATES1,12-ctx,10:PRINT#1,t$ CT 
1030 LOCATE#1,9-c,10:PRINT#1,"="  DAK 
1040 VHHNNEERNNEENNENNNEEHHEHNHEES )IH 
CTTE 

1050 ‘#3: 
uH 
1060 "HRHHNEHNNENNNEEENEENNENENNENS DIX 
HH 

1070 FOR i=1 TO 2:LOCATE#2,11-c,6+1 >ZT 
2: INPUT #2, ar (i) :NEXT 

1080 LOCATE82, 10-c,9:PRINT#2, STRING >PX 
$(c+3,255) 

1090 LOCATE#2, 11-c+x,10:INPUT#2,tr )CE 


ENTREE RESULTAT )L 


| 1100 FOR i=1 TO 2:1F a(i)Oar(i) TH >GV 


EN 1850 

1110 NEXT KE 
1120 IF tr@t THEN 1850 XE 
1130 GOSUB 2580 IC 


1140 "HIER )L] 

H#H 

1150 ‘#43 
##4 

1160 "ARSERENEEEHENNEREHNNNNENNEES )TA 
H#H 

1170 1F ch=0 THEN c(1)=2:c(2)=1 )I 
1180 IF ch=1 THEN c(1)=3:c(2)=1 )IB 
1190 IF ch=2 THEN c(1)=3:c(2)=1 >)D 
1200 IF ch=3 THEN c(1)=2:c(2)=2:pp= >GR 

2:h=4 

1210 IF ch=4 THEN c(1)=3:c(2)=2:pp= >GV 


MULTIPLICATIONS )XK 
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CT LG CEE EN 5: 





RD RR RD mRi Tes on 


2:h=4 

1220 IF ch=5 THEN c(1)=3:c(2)=2:pp= >GZ 
2:h=6 

1230 IF ch=6 THEN c(1)=4:c(2)=3:pp= >GF 
3:h=7 

1240 GOSUB 2440 >) 
1250 RANDONIZE TIME >PJ 
1260 FOR i=1 TO 2:a(i)=INT(RND#9#10 >HK 
“(e(1)-1))+10*(c(1)-1):NEXT 

1270 t=a(1)#a(2) )1B 
1280 FOR i=1 TO 2:a$(1)=STR$(a(i)): >KE 
a$(1)=RIGHT$(a$(1),c(1)):NEXT 

1280 FOR 1=1 TO c(2):1F MID$(a$(2), >TK 
1,1)="*0" THEN 1260 

1300 NEIT >kKF 
1310 FOR 1=1 TO 2:1a(i)=LEN(a$(1)): >GX 
NEXT 

1320 t#=STR$(t):1t=LEN(tS)-1:t$=RIG >QV 
HTS(t$,1t) 

1330 "HRRNEENNENNNENNNNHNNEENNNEE )IK 
CETE 

1340 ’##4 
#4 

1350 "HRHNNEHNNNENNEFENNANEENNNEES )TB 
CETE 


AFFICHAGE QUESTION  >YA 


1360 GOSUB 2810:G0SUB 1680 UF 
1370 FOR 1=1 TO 2:LOCATE#1,12-c(1), >CP 
5+i:PRINT#1,a$(1) :NEXT 

1380 LOCATE#1,12-c(1)-2,8:PRINTE1,S >XD 
TRING#(c(1)+2,255) 

1390 IF ch(3 THEN 1440 >PH 


1400 LOCATE#1,12-1t,10+c(2):PRINT#1 DFY 





,t4 
1410 LOCATE#1,12-c(1)-2,7:PRINT#1," )EB 
x" 


1420 LOCATE#1,12-1t-2,10+c(2) :PRINT DIT | 


Hi," 
1430 GOTO 1480 LL 
1440 LOCATEB1,12-1t,9:PRINTH1,t# BA 


1450 LOCATER1,12-c(1)-2,7:PRINT#1," DEF | 


| 
1460 LOCATE#1,12-1t-2,9:PRINT#1,"=" >DJ 


1470 ÏiF c{3 THEN 530 >NV 
1480 FOR i=1 TO c(2):LOCATE#1,12-1p >JE 
(1),68+1:PRINT#1, pp$(1) :NEXT 

1490 LOCATE #1,12-Ipl(c(2))-2,9+c(2) 
:PRINT#1,STRINGS(1p(c(2))+2,255) 
1900 "HRHNMERANNENNEEENNEENNENENEE 
CPTE 

1510 ‘°### 
CEE 

1920 PHRRNMERRNERINNENNNENNNEHNNEE 
CETE 

1530 FOR i=1 TO 2:LOCATE#2,12-c(i), >DJ 
S+i: INPUT82, ar (1) :NEXT 

1540. LOCATE#2,12-c(1),8:PRINT#2,STR >VD 
ING$(c(1)+2,255) 

1550 1F ch(3 THEN 1590 >PR 
1560 FOR 1=1 TO c(2):LOCATE#2,12-1p >KA 
(1),8+1: INPUT#2, ppr(i) :NEIT 

1570 LOCATE #2,12-Iplc(2)),9+c(2):P >MA 
RINT#2,STRINGS(1p(c(2))+2,255) 

1580 LOCATES2,12-1t,10+c(2):INPUT#2 >TH 
str:G0T0 1600 

1590 LOCATES2,12-1t,9:INPUT82, tr >BH 
1600 FOR i=1 TO 2:1F ar(i)@a(i) TH >NC 
EN 1850:NEXT 

1610 IF ch(3 THEN 1630 

1620 FOR i=1 TO c(2):1F ppr(i)©ppt 
1) THEN 1850:NEXT 


ENTREE RESULTAT 


1630 1F tr t THEN 1850 xw 
1640 GOSUB 2580 Del 
1650 *HRRRNEMANEANNEHENEEHNEIHENEH )YE 


###3 

1660 ?# TIRAGE AU SORT MULTIPLICATI 
ON » 

1670 "HSSHNENNNSSSNENEHSSENSENSENSS 
+414 

1680 IF ch=0 THEN h(1)=INT(RNDc(1) 
)+1:MID$(a8(1),h(1),1)=".":RETURN 
1690 1F ch=1 THEN h(1)=INT(RNDA2)+1 
:MID$(a$(1),h(1),1)=".":a$(2)=".":R 
ETURN 





1700 IF ch=2 THEN h(1)=INT(RNDa2)+1 

2HID$(a$,h(1),1)=".":a8(2)="." 

1710 IF ch=2 AND It=la(i) THEN MID$ 

(t$,1,1)=".":RETUEN 

1720 IF ch=2 THEN MID$(t$,2,1)=".": >HB 

RETURN 

1730 h(1)=INT(RND#c(1))+1:MID$(a$(1 >PE 

),h(1),1)=%.9 

1740 h(2)=INT(RNDa#c(2))+1:1F h(2)=h 

(1) THEN 1740 

1750 NID$(a$(2),h(2),1)3="." 

1760 h(6)=INT(RND#1t)+1 

1770 h(7)=INT(RND#It)+1:1F h(7)=h(6 

) THEN 1770 

1780 FOR i=3 TO 2+c(2):h(1)=INT(RND >BR 

#(1p(1-2)-1+1))+1:NEXT 

1790 IF ch=3 OR ch=4 THEN HID$(pp#$( 

ch-2),h(ch),1)=".":MID$(t$,h(6),1)= 

",*:RETURN 

1800 FOR i=1 TO c(2):MID$(pp$(1),h( 
1+2),1)=",.":NEXT 

1810 FOR i=1 TO 2:MID$(t$,h(i+5),1) DVF 

=*,*:NEXT:RETURN 

1820 PHHNENENNEENNNENNHNNNNEN 
CET 

1830 #1 
#4 

FOUT TEE TETE EEE ETES ET ET EETTT EST 
a+ 

1850 SOUND 1,433,50,15,, ,6:LOCATE#3 
»3,2:PRINT#3, "NON" :es=esti:[F es)3 

THEN 670 ELSE LOCATE#4, 18,2:PRINT#4 
,e9 

1860 FOR tt=1 TO 1000:NEXT:SOUND 1, 
120,10,15,1:LOCATE 24,7:PRINT re$:F 

OR tt=1 TO 1000:NEXT:SOUND 1,80,20, 
15,1:CLS#2:CLS83:LOCATE 18, 7:PRINT 

ap$:CALL &BB18:LOCATE 18,7:PRINT ef 
$:1F r=3 THEN 1530 ELSE GOTO 570 
CYOAMETET ETC TEE EEE ETETTETETTET) 
HHH 


1880 *### SOLUTION MULTIPLICATION >YK 
#4 


)NJ 


>TQ 
RQ 
>KC 


>FY 


ECHEC-ESSAI SUIVANT TE 


1890 "HHRNNENNEENEENNEENNNEEHNEEE ZA 
CEFE 

1900 FOR i=1 TO 2:LOCATE82,12-c(i), >BY 
5+i:PRINT#2,a(i) :NEXT 

1910 LOCATE#2,12-c(1),8:PRINT#2,STR >VE 
ING#(c(1)+2,255) 

1920 LOCATE#2,12-c(1)-2,7:PRINT#2," )EK 
x 

1930 1F ch<3 THEN 1970 >PU 
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1940 LOCATE#2,12-it,10+c(2):PRINT#2 DFE 


t 

’ 

1950 LOCATE#2, 12-1t-2,10+c(2):PRINT )JD 
W,"=" 

1960 GOTO 1990 >PC 
1970 LOCATE42,12-1t,9:PRINTE2,t AU 


1980 LOCATE#2,12-1t-2,9:PRINT#2,"=" >NB 
:GOTO 2010 

1990 LOCATE#2,12-1t,9+c(2):PRINT#2, >YB 
STRINGS(1t+2,255) 

2000 FOR 1=1 TO c(2):LOCATES#2,12-1p >HX 
(1),68+1:PRINT82, pp(i) :NEXT 

2010 GOTO 2850 >MF 
2020 HHHNMENENESNNNENNHENENEENEIE )JG 
#4 

2030 ‘##: 
CFE 

2040 *HARNENEREENNNENNEENNNENNEEE )L] 
at 

2050 WINDOW#1,3,16,3,17:WINDOW82,22 >KE 
,35,9,23:WINDOW83,5, 11,20,22:WINDOW 
#4,19,39,2,5:PAPER#1,2:PAPER#2,2:PA 
PER#3, 3:PAPER#4,3:CLS#1:CLS#2:CLS83 
:CLSH4 

2060 RETURN >FB 

2070 ORIGIN 0,0:PLOT 0,0,1:DRAW 639 >PQ 
,0:DRAV 639,399:DRAW 0,399:DRAW 0,0 
:PLOT 2,2:DRAW 637,2:DRAU 637,397:D 

RAU 2,397:DRAY 2,2:RETURN 

2080 ORIGIN 30,126:G0SUB 2120:0RIGI >DT 
N 332,30:G0SUB 2120:0RIGIN 62,46:PL 

OT 0,0:DRAW 114,0:DRAU 114,50:DRAU 
0,50:DRAW 0,0:0RIGIN 284,318:PLOT 0 
,0:DRAN 338,0:DRAN 338,66:DRAU 0,66 
:DRAY 0,0:0RIGIN 0,0:RETURN 

2090 ORIGIN 30,126:G0SUB 2130:0RIGI >XE 
N 332,30:GO0SUB 2130:0RIGIN 0,0:RETU 

EN 

2100 LOCATE#1,2,2:PRINT#1, "OPERATIO >KJ 

N A":LOCATES#1,2,3:PRlntéi, "RECORST 
ITUER* : LOCATE#2, 2, 2:PRINT#2, "VOTRE" 
:LOCATE#2, 7,3:PRINT#2, "REPONSE" : RET 

URN 

2110 LOCATES4,2,3:PRINT#4, "Score O >BU 
sur 0":LOCATE#4,2,2:PRINT#4, "Exerc 

ice  Essai":LOCATE 14,20:PRINT "Ni 

veau":LOCATE 15,22:PRINT ch:RETURN 

2120 PLOT 0,0:DRAW 228,0:DRAU 228,2 >KQ 

42:DRAW 0,242:DRAY 0,0:RETURN 

2130 PLOT 0,174:DRAW 228,174:RETURN >DP 
2140 PHRAUNESNNEENENENNENNNNENNHE )IK 

444 


FENETRES-CADRES > 





2150 #43 

CET 

2160 'HHHNNIENENNNNENNNENNNENNNEES DYE 

#4 

2170 DATA Mauvais,Retourne au nivea >GB 

u 0, insuffisant, Descends de deux ni 

veaux, Moyen, Descends d’un niveau, As 

sez Bien,Recoamence au sese niveau, 

Bien,Recomsence pour avoir 20,Tres 

Bien, Passe au niveau superieur 

2180 DATA ADDITION, SOUSTRACTION, MUL DUT 

TIPLICATION 

2190 "ARNNNEINNNENNENENNEENNEIANNES )YE 

#44 

2200 '##3 

CEE 

2210 PHSNNNNNNNNENNNNNNNANEES )JH 

at 

2220 PEN 1:LOCATE 2,3:PRINT" Le jeu >DK 

consiste a retrouver dans une o 

peration les chiffres qui ont ete 
effaces." 

2230 PRINT:PRINT:PRINT" Choisis d'a >CD 

bord quelle operation tu veu 

x faire:" 

2240 FOR 1=1 TO 3:LOCATE 10,12+1#2: >PX 

PRINT op#$(1):LOCATE 28,12+i#2:PRINT 

"<";15;")":NEIT 

2250 LOCATE 10,22:PRINT" x Tape le n >MD 

usero choisi. x *:RETURN 

2260 "HRNENSSNNENNNEENNENNNENNEES )YC 

#4 

2270 '### 

CET 

2280 "HAHNHEANEENNEENNNENNNEIENNES DE 

CEE 

2280 PEN 1:LOCATE 5,3:PRINT"Tu as c >LI 

hoisi l'option:":LOCATE 15,5:PRINT 

opé(r) 

2300 LOCATE 4,8:PRINT"Tu devras tap >KB 

er le bon noabre a":LOCATE 2,9:PRIN 

T'chaque ligne puis appuyer sur (EN 

TER)* 

2310 LOCATE 2,14:PRINT"Soiution au >] 

ler essai: 10 points" :LOCATE 14,15: 

PRINT"2se essai: 5 points" :LOCATE 

14,16:PRINT"3se essai: 2 points" 


DATAS )YA 


MENU 1 )1G 


MENU 2 > 


2320 LOCATE 2,19:PRINT"Choisis le n >GI 
iveau de difficulte:":LOCATE 6,21:P 
RINT® XTAPE UN NOMBRE ENTRE 0 ET 6 
X":RETURN 








2330 'ARBAMBANNEEINNNNEENSNEHHNNHES )YA 
##4 
2340 ‘#33 
LEE 


2350 "HHNMBEHEEHHNNNENNENENNRHHEES )YC 
LEE] 


2360 ‘#43 
#4 

2370 "HANMMENEHHENEHNNENENNNENNNHES TE 
CEE 

2380 RANDOMIZE TIME >PP 
2390 FOR i=1 TO li:a(i)=INT(RNDa9s#1 NT 
0"(c-1))+10"(c-1) :NEXT: RETURN 

2400 FOR 1=1 TO 11:a$(1)=STR$(a(1)) >VK 
:a$(1)=RIGHT$(a$(1),c) :NEXT:RETURN 
2410 t$=STRS(t):1t=LEN(tS)-1:1F 1tz >XQ 
© THEN x=0 ELSE x=1 

2420 t$=RIGHT#(t$,1t) 4H 
2430 RETURN >FC 
2440 ex=exti:LOCATE#4,10,2:PRINT#4, FD 
ex:e8=1{:LOCATER4, 18,2:PRINT#4, es: RE 


GENERATION NOMBRES )YB 


ROUTINES DIVERSES )YD 


TURN 
2450 FOR i=1 T0 h )EC 
2460 hC1)=INT(RNDac) +1 > 


2470 IF 121 THEN FOR k=2 TO i:1F h( HU 
D)=h(k-1) THEN 1=i-1:GOT0 2460 


2480 IF i>1 THEN NEIT >PY 
2490 NEXT LG 
2500 RETURN )FA 
2510 ht=INT(RND#1t)+1 )QN 


2520 FOR i=1 TO It+x:1F ht=h(i) THE >GV 
N 2510 

2530 NEXT )LB 
2540 RETURN )FE 

2550 "HANNAH )YE 
ss 

2560 ‘as: 
#44 

2570 "HHHHEENRNNERNEENNNEENUEEE )YG 
CPE 

2580 SOUND 1,80,30,15,1:SOUND 1,63, >YR 
30,15,1:SOUND 1,40,30,15,1:LOCATE # 

3,2,2:PRINT#3, "BRAVO" 

2590 IF es=i THEN sc=sc+10 ELSE IF )ZY 

es=2 THEN sc=sc+5 ELSE IF es=3 THEN 
sc=sc+2 

2600 LOCATE84, 7,3:PRINT#4, sc )IN 
2610 su=su+10:LOCATE#4, 14,3:PRINT#4 >HH 
SU 

2620 LOCATE 18,7:PRINT ap#:CALL LBB )ET 
18:LOCATE 18,7:PRINT efs:CLS#1:CLS8 
2:CLS#3:t=0:G0SUB 2090:G0SUB 2100:e 


EXERCICE REUSSI YF 
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s=0 

2630 IF ex=5 THEN 2670 ELSE ON r GO >PK 
TO 290, 760, 1170 

2640 PHHHAEENNEEENNENNNEENNENHNNES )VE 
LEE] 

2650 #43 
CPL 

2660 "HHANNENNNENNEENNNENNNEANNEEE )YG 
### 

2670 WINDOW40,1,40,1,25:CLS8#0:BORDE >GJ 
R 15:0RIGIN 0,0:G0SUB 2070 

2680 PEN 1:LOCATE 5,2:PRINT"Option >CD 
choisie:";op$(r) 

2690 PEN 3:LOCATE 10,4:PRINT"Degre FU 
de difficulte:";ch 

2700 PEN 1:LOCATE 10,8:PRINT"Voici TK 
ta note:" 

2710 n=sc#2/5:LOCATE 12,12:PRINT n; DID 
“aur 20":z=nç4+1 

2720 PEN 3:LOCATE 8,16:PRINT no$(z) >FR 
:LOCATE 8,18:PRINT co$(z) 

2730 LOCATE 8,20:PRINT "Si tu peux. DJT 


AFFICHAGE RESULTATS  >YF 


2740 PEN 1:LOCATE 4,22:PRINT "Tape HT 
<C> pour continuer." 
2750 rp$=INKEYS:1F rp$="" THEN 2750 >BC 


2760 IF rp#="C" OR rp$="c" THEN CLE >LA 
AR:GO0TO 10 

2770 PRINT CHR$(7):GOT0 2750 > 
2780 "HARRNEENNEANNNNNNNNENNENHNEES TK 
CEE 

2790 # TRAITEMENT PRODUITS PARTIEL ZA 
S # 

2800 "HHHNEHENEEENNENNNNNENNENNNNES )YC 
H+ 

2810 FOR i=1 TO c(2):pp(i)=a(1)#VAL >LY 
CHID$(a$(2),la(2)-1+1,1)):NEXT 

2820 FOR i=i TO c(2):pp#$(1)=STRS(pp >DI 
()):1p(1)=LEN(pp#$(1))-1:pp$(1)=RIG 
HT$(pp#(i), 1p(i)):NEIT 

2830 FOR i=1 TO c(2):pp#$(1)=pp#(i)+ >ZQ 
STRING#(1-1,32) : 1p(1)=LEN(pp#(1)):N 

EXT 

2840 RETURN >FH 
2850 su=su+10:LOCATE#4, 14,3:PRINT#4 >HP 
SU 

2860 LOCATE 18,7:PRINT ap$:CALL &BB >KH 
18:CL581:CLS#2:CLS#3:t=0:LOCATE 18, 
7:PRINT efs 

2870 IF ex=5 THEN 2670 ELSE GOSUB 2 >MU 
100:G0T0 250 = 


Grégory NOE 


Valable pour 

X CPC 464 
CPC 664 

CPC 6128 


Lo Z 

l'est difficile de taper un programme d'uné revue 

sans commettre d'erreurs ! Quand les erreurs sont 

signalées (Syntax error in... Lines does not exist in...) 
la correction est facile puisque la ligne est indiquée, mais 
lorsqu'au “point de vue” du CPC, le programme est cor- 
rect, il peut en être tout autrement pour le lecteur. 
Sile fonctionnement du programme ne correspond pas 
vraiment au programme original, alors il est impossible 
de retrouver l'erreur commise, à moins de comparer les 
lignes de votre programme avec celles du journal, mais 
c'est très long et on risque de passer sur une erreur sans 
la voir. 
C'est pourquoi ce programme a été créé: il est à utiliser 
si Vous ne retrouvez pas vos erreurs. 
La frappe d'un programme de votre journal favori (CPC) 
terminée, vous faites RUN” et là, vous corrigez toutes 


les erreurs signalées par le CPC en vous référant au jour- | 


nal pour comparer. Si malgré cela, il ne tourne toujours 
pas, suivez cette procédure : 

- sauvez votre programme en ASCII grâce à l'instruction 
: Save “nom prog”, A. 


Puis, si vous êtes sur K7, rembobinez la bande jusqu'au | 


début du fichier: 

- chargez Anti-Erreurs; 

- entrez le nom de votre programme et insérez le sup- 
port où il se trouve (K7 ou disquette). 

Après quelques secondes, les numéros de ligne vont 


défiler. Vous remarquerez qu'à chaque ligne correspond | 
un code de 2 lettres sous cette forme : >XX :c'estle code | 
qui va vous permettre de savoir d'où proviennent les | 


erreurs. Pour cela, il faut que vous compariez les codes 
du journal à ceux de l'écran. Si un code diffère, notez 
sur papier le numéro de ligne qui correspond à ce code. 
Continuez ainsi jusqu'à la fin du listage. Le défilement 
teminé, recherchez votre programme et corrigez les lignes 
que vous avez notées en comparant avec le journal. 
Faites RUN” et, 6 miracle !, ça marche. 

Attention, lors de la frappe du programme à traîter, 


RER ALEX] 


| 
D 
| D 







"2 


NV 


“ 


RRARARAMARRRARARARRRARRERERÉSX 


È # # 
14 + ANTI - ERREURS * 
44 # # 
99 + VERSION 2,4 * 
db  # # 
MEET 21 SES LS LE DE A LE LE Li EE LE Li 
86 

94 (oc) CFC & G. NÜE 1987 

109 

114 

120 EUR 
154 INITIALISATION 3 
146 LRERE RÉ ER RÉ RER EE RL EE ENS 
150 

166 ON ERROR GOTO 1254 

179 MODE 2 


18è DIM G$ (22) 

196 FOR I=0 TO 22:READ 6$:6$11=G$:NEXT 

206 ‘ATTENTION LA LIGNE DE DATA CI-DESSOUS NE CONTIENT 
FAS TOUTES LES LETTRES DE L'ALPHABET !!! 

219 DATA ASBSCDVE,F,GH TK LMNSP OR TU VU, XYZ 
220 ‘ ANTI-BUG FICHIER 

230 IF PEEK(HIMEM+1)=255 THEN 280 

249 OPENOUT "CPC" 

256 MEMORY HIMEM-2 


n'omettez aucun caractère car Anti-Erreurs les prend en |} 265 CLOSEOUT 


compte et bien sûr, ne tapez pas les codes de contrôle. 


> 


270 FOKE HIMEM+1,255 


30 


?LA 


>ID 


280 DEFINT B-7 

290 ‘ 

300 BORDER 6: INK 0,1:INK 1,16:PEN 1:PAPER Ô 
310 MOVE 0,16:DRAW 656, 16 

320 PRINT TAB(27) "ANTI-ERREURS 
);" Version 2.0";CHRS$ (24) 

330 MOVE 0,385: DRAW 650,385 


349 LOCATE 24,25:PRINT"CPC REVUE DES STANDARDS AMSTRAD" 


350 WINDOW 1,80,3,23 

360 M$="Realise par Gregory NE" 

370 F$="" 

389 FOR I=i TO LEN(M$) 

390 F$=FS+MIDS (M$, I. 1) 

490 LOCATE 70-I,5:PRINT F$ 

419 FOR T=1 TO 109 

420 NEXT T,I 

430 

440 ‘HIHI 

450 ‘ 

460 LOCATE 2,1:PRINT"ENTREZ LE NOM DU FICHIER : ": 
470 INPUT "",NF$ 

489 IF NF$="" THEN PRINT CHR$(7):G0TO 460 

490 LOCATE 2,3:PRINT'IMPRIMANTE OU ECRAN (1/E) ?" 
500 R$="":WHILE R$="":R$=UPPERS (INKEY$) : END 


510 IF R$="1" THEN CA=8:PRINT'BRANCHEZ-LA...* ELSE 540 


920 PRINT#B,CHR$ (27) ;"!";CHR$ (20) 
550 GOTO 569 
549 IF R$="E" THEN CA=0:G0TO 560 
990 GOTO 580 


960 CLS:LOCATE 2,3:PRINT'TANT QUE LE LISTAGE N'EST PAS 


TERMINE" 


970 LOCATE 2,5:PRINT'NE PAS ARRETER LE MAGNETOPHONE OU 


NE" 
580 LOCATE 2,7:PRINT"PAS SORTIR LA DISQUETTE" 


990 LOCATE 2,10:PRINT"'PRESSEZ UNE TOUCHE POUR LA LECTUR 


E" 
600 CALL &BBO5 
610 ‘ 


b2% 
630 
baè 


650 ” 
660 OPENIN "!"+NF$ 
670 CLS:PRINT“TRAITEMENT EN COURS..." 


680 IF LEN(A$)=255 THEN A$="":LINE INPUT#9,B$:60T0 1160 


690 LINE INPUTH#9,B$:A$=B$ 

700 IF CA<>B THEN GOSUB 1310 

710 IF INKEY(64)=0 THEN STOP 

720 ‘ 

730 ‘ CALCUL DE LA CLE DE CONTROLE 


750 A=0:FLG=0 

760 FOR 1=1 TO LEN(A$) 

770 L$=MIDS(A$,1,1) 

780 IF L$=CHR$(34) AND FLG=1 THEN FLG=0:G60T0 849 
790 IF L$=CHRS(34) AND FLG=0 THEN FLG=1:G0T0 840 


“4 CHR$ (24 


2H 
>TB 
>JN 
>TK 
>GU 


>UJ 
>EV 


NL 
>HJ 
>XA 
>PU 
PL 
JUL 
LA 
>EF 
>RH 
>RJ 
>RK 
DXT 
?FD 
?GR 
VR 
>NK 
XD 
>AR 
>1F 
>YQ 
)1B 
>BR 


>TA 
TB 
>LF 
>JR 
2H 


UE 
VF 
JN 
RK 
?TA 
?TB 
MB 
>PH 
>MU 
>PC 
>PD 











VV NN NN NN NN NN NON NN NN NN NN NN NON NN NY 








800 IF LS=CHRS(32) AND FLB<)1 THEN 850 >CX 
810 IF LS=CHRS(39) AND FLG=0 THEN 869 )CA 
820 IF FLG=1 THEN 840 >ND 
830 L$=UPPERS (LS) D po 
849 A=A+ASC (L$)+I >LU 
850 NEXT I >PB 
840 ‘ ?TE 
870 CH$=STRS (A) »CC 
880 CH$=RIGHTS (CH$, LEN(CH$) -1) »YC 
890 L=LEN(CH$) :L2=LEN(CH$) /2 >XA 
900 A=VAL (LEFTS (CH$, L2) ) >TY 
919 C=INT(A/23) >AH 
920 P=A-(C#23) LU 
930 C$=6$(P) ?XC 
940 A=VAL (RIGHTS (CH, L-L2) } >WH 
950 C=INT(A/23) :P=A- (C#23) >UT 
960 C$=C$+6$ (P) »TD 
970 ‘ »TG 
980 FOR I=1 T0 6 > 
990 LS=MIDS(A$, 1,1) AULNETE £7 MY 
1000 IF L$<"9" OR L$>"9" THEN 1030 » 
1619 LIS=LIS$+LS$ XF 
1820 NEXT :KE 
1030 VM$="":FOR I=1 TO LEN(A$):1F ASC(MIDS(A$,1,1))€32 EK 
THEN VMS=VMS+" " ELSE VMS=VMS+MIDS (AS, I, 1) 
1040 NEXT 1:B$=VM$ M4 
1950 ‘ }J 
1069 IF CAC>B THEN 1070 ELSE 1099 »VT 
1070 PRINT LIS:TAB(16) ">"s5C$ DWZ 
1080 L1$="":G60T0 1160 ND 
1090 LI$="":PRINT#CA, LEFTS(B$,55) : TAB(S7) “>":C$ >QM 
1100 IF LEN(B$)<55 THEN 1169 >UT 
1110 FG=1 >C6 
1126 B$=MIDS (B$, 56, LEN(B$) ) >UB 
1130 PRINTHCA,LEFTS (B$, 55) WW 
1148 IF FG6=1 AND CAC>B THEN FG=0:G0SUB 1319:G0T0 1150 >VB 
1150 GOTO 1100 >LG 
116û IF EOF=-1 THEN CLOSEIN ELSE GOTO 686 >HD 
1170 IF CA=0 THEN CALL &BBO3:PRINT TAB(50) CHR$ (24); "UN >RJ 
E TOUCHE... ";CHRS (24) :CALL 8BB0S 
1180 CLS:PRINT"MAINTENANT RECHARGEZ ":NF$:" ET CORRIGEZ >JC 
LES LIGNES QUE VOUS AVEZ NOTEES.." 
1195 END >YK 
1200 ‘ »XF 
1210 »X6 
1230 DA 
1248 »XK 
1250 IF ERR=25 THEN CLS:PRINT CHRS (7) ;CHR$ (24); "FICHIER >YC 
NON ASCII"; CHR$ (24) :END ELSE CONT 
»YB 
MC 
D 
NE 
»\G 
1310 COM=COM+1:1F COM>19 THEN CALL BBBGS:PRINT TAB(50) >AF 
“UNE TOUCHE. .":CALL &BB05:CLS:COM=1 
1320 RETURN )EK 
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